« 


“A¥NKAD TS2000 HOME ROM EXTENSION 


5 JE HIE TEI HEHEHE HEHEHE HEHEHE ETE EEE BET BEEBE BEE EEE RRR 


al ; + 

3% TIMEX / SINCLAIR 2000 SYSTEM SOFTWARE * x 
3% HOME ROM EXTENSION od 

7% : + 


FE HEE EEE HEHEHE HEH CHE HE HEHE HEHE HE ETE HEHEHE HE ETE HEHEHE HEHE HEE FETE HEHE TE HEE SEE IE FETE TEE TE HEHE HEHE TE HE SE AE SE HE HEHE: 


XBASIC PAGE 1 
LOC OBJ CODE M STMT SQGURCE STATEMENT ASM 5.9 


418 #LIST ON 
419 #LIST-ON 
420 


Eu URIVES-46000H 
423 DEST7 Eau OFFFFH-MOVE_SZ+1 
424 FIX Bou DES 17-4000H 
425 RESET | Eau 1354H 
426 GE Eau 6572H 
427 GB7 Eau GB3+F 1X 
28  INTS EGU &2AEH 
429  INT7 EQu INTS+FIX 
' 430 BOOT.DEST Eau &Q00H 
431 NIT, ’ EQu OD31H 
422 
0000 433 ORG O 
434 
0000) FS" 35 POWERUP DI 
0001 =: 1844 436 IR GO_INIT ' 
437, 
on08 43 ORG 8 
439 sERROR: +RST S = CALL ERROR 
440 SSIGNAL RUN-TIME ERROR, PIR 10 ERROR # GN STACK 
441 HP 3(XPFTR) t= (CHADD) 
442 ' -  $WRITES ERROR # IN (ERRNR) & ABORITS VIA ERR_SP 
443 3PRESERVES ABCDE AND CARRY 
e008  §ZASDSC 444 LO HL, (CHADD) 
OOOB 225F5C: 445 LD (X_PTR) HL 
OOOE EL 446 POP HL 
OOOF = 6E 447 LD L> (HL) 
0010  FD7S00 443 Lo " CIY-Y+ERRANR)» L 
0013 ED7HSDSC 449 Lo SP, (ERR_SP) 
0017 215413 450° Lo HL, RESET 
- 001A ES 451 PUSH == HL 
.O01B | 24FF 452 LD H, OFFH 
0o1D | 2E00 453 LD L: 0 
OO1F ES 454 PUSH HL 
0020 «FS 455 PUSH AF 
0021 BACz5C 454 Lo A, (VIDMOD) 
0024 AT 457 AND eA 
ooz5 00 458 NOP 
0024 2804 459 JR Z» CHUNKS 
ooze Fi 450 PoP LAF 
0029 CDS2FD 461 CALL “GB7 
oozt ” Fi 442 CHUNK3 POP ® AF 
002D))-Cn7265 463 CALL = G3 
 «Ab4 
0038 465 ORG 28H 
466 $ HERE IS THE INIERRUPT FIELDER FOR THE EXROM 
0038 FS 447 PUSH = AF 
0039 «FF 3 468 DI 
003A = BACZ5C _ 4&9 Lo A, (VIDMOU) 
0O3D AT 470 AND A 


O03E 00 471 ; NOP 


OO3F 
OO4. 
0042 
0045 
Q046 


0049 
0048 
oo4p 
Q04F 
O0s0 
ONS2 
0054 
Q0357 
OOsA 
oOosD 
0060 
0063 
0065 


C3310D 
Z14F00 
1100460 
O1OB00 
EDBO 

C30060 


472 
473 
474 
47/5 
476 
477 
478 
479 
430 
451 
482 
483 
4e4 
4e5 
426 
487 
489 
4a9 
490 


XBASIC 
OBJ CODE M STMT SUURCE STATEMENT 


CHKS 
GO_LINIT 


BOOT_SRC 


BOOT 


Z, CHK3 
AF 

INT7 

AF 

INT3 


PAGE 2 
ASM 5.9 


sCHUNK 7 ADDR FOR INT HANULER 


SCHUNK 3 ALLIR FOR INT HANDLER 


Lo A» l 
(DKHSPT), A 
BOOT 

A 


(DKHSPT), A 
(HREXPT), A 
DE, OFFFFH 
INIT 

HL,» BOOT SRC 
DE, BOOTLDEST 


SENABLE ALL OF HOME BANK BUT CHUNK O 


SDISABLE DUCK AND EXT. ROM 


sGOTO INIT IN HOME BANK 
sHERE TO LOAD BOOT ROUTINE INTO RAM 


BC, BOOT-BOOT_SRC 


BOOT DEST 


JUMP TO BOOT ROUTINE 


" oXYARE FACILITIES 


Loc 


0000 
0003 
0004 
0007 


GERI CODE M STMT 


217000 


R 


VON PUD ONe 


TAPE 
SOURCE ST 


+HEAD 


H SELECT 
HOME 


TEMF39 
RESET 
- TEMLO 
INTPT? 
POPSTR 
FINO_LN 
END? 
TERM? 
STK_O 
TEMS 
FIXu 
SELECT 
FUTMES 
CHK3Z 
DELREC 
INSERT 
DEL._DE 
RECLEN 
CLLHS 
SYNERR 
LDOMES 
SEPRMT 


#LIST ON 
#LIST ON 


W TAPE: 


ATEMENT 


PAGE 


CASSETTE TAPE FACILITIES 


GLOBAL 


SLVM, AKEY : 
GLOBAL W_TAPE, R-TAPE, RD_BIT, R_EUGE, LOAD, MERGE, SAVE, W_BORD 


EXTERNAL CALL_BANK, GOTO_BANK 
#INCLUDE 1/TAPE_SYMBOLS.$ 


LO HL,W_BORD 


PUSH HL. 


LD HL, 403242 


BIT 7,A 


Eau 
EQu 


Eau 
EG 
Eau 
Eau 
Eau 
EQU 
Eau 
EH 
Eau 
EW 
Eau 
Eau 
Eau 
Eau 
EQu 
EQu 
Eau 
EGU 
Equ 
Ewu 


Eau . 


Eau 


us va ve ve we ve we ve 


Qo 
235 


19E1H 
1354H 
1BEFH 
2839H 
2FAFH 
2C70H 
1B44H 
21E7H 
1C51H 
1BESH 
1F23H 
. 1230H - 
O73FH 
1 BBH 
1730H 
12B8H 
1740DH 
1720H 
» OSAPH 
1BECDH 
3CASH 
SCEI9H 


1 
ASM 3.9 


‘ 


7) 


sWRITE DE BYTES FROM RAM TO TAPE, IX -> FIRST, PRECEDED BY THE 
BYTE IN A WHICH [3 USED TO IDENTIFY THE TYPE OF BLOCK —- 
USUALLY O FOR A HEADER BLOCK, -1 FOR DATA. 


FORMAT ON fAFE IS A LEADER AT 606.5 HZ (4022 CYCLES, GIVING 


S32. OR 1412 CYCLES, GIVING 2S, ACCORDING AS BIT 7 GF THE 
BLOCK TYFE IS 0 OR 1). 1 CYCLE OF 2040 HZ, . 

THEN DATA (MS BIT FIRST IN EACH BYTE. 1 CYCLE OF 2040 H2 
FOR AQ, 1 CYCLE OF 1020 HZ FOR A 1), THEN PARITY SYTE (XOR 


OF ALL DATA BYTES, 


FORMAT AS A LATA BYTE) ; 


SABOVE FREQUENCIES ARE NOMINAL, EXACT TIMINGS ARE GIVEN IN 
COMMENTS ON THE CODE (DEFAULT UNITS ARE MICROSECUNDS) 
SABORTS IF BREAK (SPACE KEY PRESSED). 

3SMASHES IXA‘F~ 


sRETURNS ARE THROUGH W BORD 


CASSEITE TAFE FACILITIES 
OB! CODE M STMT SGURCE 


Loc 


0009 
O00B 
QOOE 
QOOF 
oo10 
oo12 


0013 
Oo13 
Oo1s 
0018 
Q01A 
oo1c 
OO1E 


OOF , 


OO21 
a0z2 
o0z3 
OOZS 
0023 
002A 
oo2cd 


o02E. 


0030 
0022 
0034 
0037 
OO33 
oa39 


o0o3C 
oos3D 
OO3E 
0040 
0043 
0044 
O04S 
0048 
Q048 
049 


o04c 
oo04D 


004F 
0050 


0032 


20FS 
OS 

25 
F21400 
062F 


_ 10FE 


D3FE 
SEOD 


70 


C34300 


6c 
18F4 


79 
CB78 


10FE 


472 
473 
474 
a75 
476 
477 
478 
47? 
480 
421 

482 
423 
424 
ass 
486 
487 
4g 
4g 

490 
Av 

492 
492 
494 
495 
4% 
497 
473 
ao 
500 
SOL 
502 
502 
504 
505 
506 
507 
508 
509 
510 
Sti 

512 
513 
514 
515 
S16 
517 
518 
S19 
520 
521 

522 
523 
524 


25 


LWT1: 


LWT2s 


LWT3: 


LWT32: 


LWT34¢ 


LWT358 


LWT4: 


LWT42: 


TAPE 


STATEMENT 
JR Z,LWT1 


PAGE 2 
ASM 5.9 


3I1F HEADER BLOCK 


LD HL,1412#2 


EX AF, AF* 


INC DE 
DEC IX 
DI 


LD A,2 
LL BLA 
DTuINZ $ 


370 ALLOW FOR BLOCK TYPE BYTE. 


s### HERE DISABLE NMI‘S ### 


sA := 2 FOR RED BORDER 
SWRITE HEADER 


QUT (O.PORT).A 


XOR OFH 
LO B, 184 
DEC L 


JR NZ LWT2 


DEC B 
_ DEC H 


JP FL LWT2 


LO B,47 
DuINZ $ 


sFLIP TAPE OUTPUT, SWITCH BORDER BETWEEN RED & CYAN 
SHALF PERIUD = 6197.4 ‘ 


sHERE WHEN CARRY CUT OF L, DECR B BECAUSE THIS PATH 
3 fs 13 T-STATES LONGER 


sHERE WHEN 806.5HZ LEADER IS | COMPLETE 
sFOR 190.46 ae FERIOD 


GUT (O_PORT),A 


LD A, ODH 
Lo B, baba] 
DuINZ $ 


3TAPE HIGH, CYAN BORDER 
sFOR 210 HALF PEKIOD 


OUT “(CO_LPORT)»A 
_ Lo Dey erro one Rane! HALF UF FIRST DATA BIT, 244.46 TO 246 IF A 2 


EX AF, AF’ 


JP LWTAS 


LD L»H. 
JR LWTS2 


Lo A.C 
BIT 7,B 


DUNZ $ 


wa ve we we ve ve ve 


sHERE AT THE START OF EACH DATA BYTE, C=OEH 


5 ag PARITY BYTE 
SELSE PICK UP DATA BYTE (NB CAN BE DELAYED UP TO 1.4) 


@ ‘ : be ee ' Paowt boy aha 


SUPDATE PARITY BYTE oP nett 
sTAPE SIGNAL LOW, BLUE BORDER 


sHERE TO PICK UP PARITY BYIE INSTEAD GF DATA BYIE 


sHERE TO OUTPUT SECOND HALF OF BIT CELL 
310 SET Z WITHOUT DISTURBING CARRY 


HERE WITH NZ IF FIRST HALF OF BIT CELL, Z IF SECOND HALF, 


CARRY HOLDING DATA BIT, L HOLDING REMAINING BITS GF CURRENT 
BYTE AT MS END THEN A 1 BIT, FILLED AT LS ENL) WITH O°%S, 
H = PARITY BY'TE INCLUDING CURRENT BYTE, B AS REQ’D FOR 
TIMING, C=0EH, A AS REQ“D AT LWT44, IX —> CURRENT BYTE, 
DE = NUMBER OF BYTES (INCL PARITY BYTE) fO GQUTPUT AFTER THE 
CURRENT BYTE 

sFOR 244.3 TO 245.7 HALF PERIOD IF AO 


“ASSETTE TAPE FACILITIES 
OBJ CODE M STMT SOURCE STATEMENT 


TOE 


OoOs4 
O0S4 
Onss 
OOSA 
Oost 
oOose 
A060 
0081 
0062 
00463 
0065 
00&8 
0069 


OO46B 
Qo6pT 
QO4SF 
a0g71 
0072 
0073 


0074 


0073 
0078 
007A 
0070 


0070 
OO7E 
oos81 
O083 
O84 
OO8S 
QO86 
0033 


008A - 


O0s8C 
oo2D 
OOSE 
oONgO 
o0?1 


0092 
o093 


3004 
0642 


S246 


‘S27 


S23 
529 

S30 
S31 
S32 
S33 
534 
S35 
S36 
S27 
S33 
bea 
540 
S41 
S42 
543 
544 
S45 
S44 
£47 
$438 
549 
Sao 
S51 
S52 

S53 
S54 
S55 
S54 
S57 
S53 
Soy 
S40 
S41 
S42 
S42 
544 
S45 
S44 
G7 
548 
549 
S70 
S71 
S/2 
S73 
3/74 
S75 
576 
577 


TAPE 


LWT44: 


LWT463 


‘WBORD: 


PAGE 3 
ASM 5.9 


JR NC, LWT44 


LD 8,46 

[uINZ $ SEXTRA 244.3 (TOTAL 488.6 TO 490) IF A 1 

CUT (OLPORT) +A 

LO B62 

JR NZ, LWT4 $TO DO SECOND HALF OF BIT CELL 

DEC B 

XOR A 3SET NC 

INC A 3A t= 1 FOR BLUE BORDER 

RL L 3GET NEXT DATA BIT 

JP NZ+LWT42 

DEC DE sHERE AT END OF BYTE 

INC IX 
sae NE THE TIMES IN THE COMMENTS ARE NO LONGER CORRECT! THEY 
s## AKE BASED CN HAVING “LD B,Si‘ NEXT, THEN THE FOLLOWING | 
s#4% 4 INSTRUCTIONS MISSED OUT, & THEN “JP NZ, LWI3’ REPLACED 
pHi BY A UR. 
;44# ACTUAL TIMES VIA THIS PATH ARE THEREFORE BETWEEN 0.3 LESS 
348 & 1.1 MORE THAN STATED. 

LD B,49 

LID Ay 7FH 

IN A; (ILPORT) 

RRA 

RET NC ;TO W.BORD, IF BREAK (SPACE KEY PRESSED). 

LD A.D ' 

INC A 

IP NZ»LWT3 160 GET NEXT BYTE ; 

LD B,S9 sWAIT APPROX A O-BIT HALF-PERIOD BEFORE RESETTING 
DINZ $ . 3 TAPE GUTPUT 
RET 3TO W_BORD 
SWRITE BORDER COLOUR TO OUTPUT PORT, RESET 1APE AND SPEAKER 

;  CUTPUTS, ABORT IF BREAK (SPACE KEY PRESSED), ENABLE 
; INTERRUPTS. 
;PRESERVES AFBCDEHL 

PUSH AF 


LWOS: 


LD A, (BORDCR) 
AND 7.SHL.BACKG 
RRCA 

RRCA 

RRCA 

OUT (O_PORT),A 
LD A,7FH 

IN A.<I_PORT) 
RRA 

EI 

JR C,LWDS 

RST ERROR 

DEFB 12 


sEKROR D, BREAK IN PERIPHERAL 


POP AF 
RET 


rs) 


CASSETTE TAPE FACILITIES 


Loc 


. 


‘O094 


oo7S 
ONIS 
0097 


0078 
GOPA 
ooF7c 


OOFF ° 


QOAO 
QOA2 
OOA3 
OOAS 


- QOA7 


QODAS 
OOA? 
NOAA 
QOOAL 
QOAF 
QOOBR2 
Qon4 
OOBS 


OOBS , 


OOB7 
OOK? 
OORC 
OOBE 
o0ce 
o0C3 
O0nS 
OOC7 
o0cs 
OOCA 
QOCB 
oocn 
OOCF 
oon2 


OOL4 


OODS 
QOD7 
OOD? 


oonc 


20F9 
CO2101 
S0EB 
0690 
Co2101 
20E4° 
SECS 
B3 
SOEQO 
24 
20F 1 
0409 
CO2501 
SODS 
73 
FED4 
SOF 4 
Coz501 
iia) 


573 
37? 
Seo 
31 
Se2 
ae3 


| S84 


S85 
S846 
337 
Ses 
S82 
a90 
S71 
S92 
a73 
S94 
a95 
59S 


597 


#EJECT 


R-TAPE®s 


* LD A,00001111B 
GUT (O_FORT),A 
LO HL» W BORD 


LRT2: 
LRT23: 


LRT24s 


LRT27: 


LRT: 


TAPE 
OB! CODE M STMT SOURCE STATEMENT 


PAGE 4 
ASM 5.9 
sREAD WE BYTES FROM TAPE TO RAM 
SENTER WITH A = BLOCK TYPEs ALSO 
; CARRY SET AND IX -> WHERE TO FUT FIRST BYTE TO LOAD | 
3 OR NC AND IX -> FIRST BY/E [0 COMPARE AGAINST IF VERIFY 
tEXPECTS FORMAT AS WRITTEN BY W_1APE 
3RETURNS CARRY SET IF GK, NC IF CHECKSUM ERROR OR 
3 BLOCK SHORTER THAN DE BYTES OR FAILS TO VERIFY OR BLOCK. | 
3 TYPE WRONG, 
SAKORTS IF BREAK (SPACE KEY PRESSED). 
3SMA aces 1XA’F* 
INC D SET NZ 
EX AF, AF- 
nEC D 
DY 


s### HERE DISABLE NMI“S #4 


PUSH HL 


IN A, (I_FORT) 


RRA 


$SET LOUUSPEAKER & TAPE. OUT INACTIVE 
SRETURNS GO THROUGH W.BORD' 


AND 1.SHL. (TAPE_I-1) 


OR 2 
LO CA 

CF A 

RET NZ 

CALL R_EDGE 
JR NC» LRT2 
LO HL, 1045 
DUNZ ¢ 

DEC HL 

LD AH 

a 

JR NZ LRT24 
CALL ROLBIT 
JR NC LRT2 
LOY B.-100 
CALL RD_BIT 
JR ONC LRTZ 
LO A,-S8 

cP B 

JR NCLLRT23 
INC H 

JR NZ» LRT27 
LO B, -85 
CALL RUEDGE 
JR NC» LRTZ 
LD A.B 

CP 16-40 

JR NC LRTS 
CALL ROEDGE 
RET NC 


sRED BORDER 
sSET Z FIRST TIME ROUND 


SWITH NC IF BREAK 


3T0 EXIT IF BREAK OR REPEAT IF TIMECQUT 
sWAIT 1 SEC (ABOUT 0.957 MSEC EACH TIME ROUND) 


s;NOW READ HEADER: FIRST GET BACK INTO SYNC 
31F BREAK OR TIMEGUT 
3IF TIMEQUI ETC 


sI1F TOO SHURT TO BE LEALER 


UNTIL 256 CONSECUTIVE CYCLES RECOGNISED 
SIF BREAK OR TIMEOUT, 


SUNTIL “SHORT O" CELL FOUND 
SIGNORE SECOND PART OF "SHORT 0” 


ra) 


Loc 


oonpd 
QOOUE 
OOEO 
OOE 1 
ODES 
QOES 


O0E7 
QOOES 
QOEA 
OOEC 
QOEF 


OOF 1 
QOFS 
OOF 3 
QOF4 
OOF Si 
OOF S 
OOF 7 
OOFS 
OOFY 


OOF B- 


QOFE 
OOFF 
0100 
0102 
0103 
0104 
0106 


0108 
OLOR 
O10 
OLOE 


QOLOF - 


O11 
O113 
0114 
O117 
O115 
O119 
O11A 


- O11 


O11D 
O11E 
0120 


OBJ CODE M STMT SOURCE STATEMENT 


02 
2007 
300F 
DL7S00 
1S0F 


LD7EOO 
A 
co 
Do2z3 . 


¢n2101.—s=#R 


Do 
3ECB 
BS 


CASSETTE TAPE FACILITIES 


&22 
633 
634 
&35 
434 
&37 
633 
639 
640 
641 
642 
643 
644 
645 
644 
647 
643 
64 
&50 
651 
652 
653 
654 
655 
&54 
657 
6533 
659 
640 
661 
662 
663 
&464 
665 
&64 
667 
643 
669 
470 
&71 


672 


673 
674 
675 
676 
677 
678 
679 
680 
681 
482 
683 
694 
485 


TAPE . PAGE = 5 


LRT4t 


LRT405: 


LRT41: 


LRT42: 
LRT4253: 


LRT43: 


LRT4Ss 


RD_BIT: 


ASM 5.9 


LO CA sCHANGE COLQURS FRUM RED/CYAN TO BLUE/YELLOW 


EX AF, AF” 

wR N2,LRT405 
JR NC LRT41 
LD (IX) »L 

JR LRT42 


SIF BLOCK TYFE 
3iF VERIFY 
SELSE STORE DATA BYTE 


RL Cc SAVE CARRY 
ASSERT TAPE.I<¢7 
XOR L , 


RET NZ sWITH NC IF DOESN“T MATCH 


LO ALC 

RRA 

LO CLA sRESTORE C & CARRY, PRESERVING Z 
INC OE . 

JR LRT425 


LD A, (IX) 
xOR b 3NB PRESERVES NC 
RET NZ sWITH NC IF FAILS 10 VERIFY 


“INC IX : 


DEC DE. 
EX AF, AF’ 
LO B,-78 ; : 
LD Lol ° , ‘ 
sHERE TO READ NEXT BIT, WITH BITS ALREADY READ AT LS END OF L, 
H THEN A 1-8IT, MS END FILLED WITH 0°S, H = PARITY BYTE, BC 
3 AS REQ’D BY RDLBIT, IX -> WHERE TO FUT NEXT BYTE, DE = 
3 NUMBER OF DATA BYTES STILL TO READ (INCLUDING THIS CINE) 


CALL RDBIT 


RET NC 

LD A,-S3 

CP B sSET CARRY IF > ABOUT 686 MICROSEC, CLEAR ELSE 
RLOL 

LD B,-&O - 

JP NCL LRT4S 

LD AH ” sHERE WHEN A COMPLETE BYTE IN L 


LO HA sUPDATE PARITY 
HR NZ LRT4 
LD AH WHEN NO MORE DATA TO READ (SO L WAS THE PARITY BYTE) © 


3 
cP 1 sSET CARRY IF CHECKSUM GK, NC IF WRONG - 
RET ; ‘ 


sREAD A BIT CELL (TWO TRANSITIONS) 


CASSETTE TAFE FACILITIES 


Loc 


O121 
0124 


O1Z5 
O127 
O122 


O12A 


O12B 
O120 
o120 
OF 
O131 
O132 
“OLS3 
‘O134 
O134 
O1ss 
OLS? 
Q13A 
O13B 
0130 
OLSF 
O141 


0142 . 


TAPE 


OBJ CODE M STMT SOURCE STATEMENT 


Co2501 
Lio 


R 


SEG 


687 
£88 
639 
690 
691 
692 
693 
694 
495 
£6 
697 
698 
bo9 
700 
704 
702 
703 
704 
705 
706 
707 
708 
709 
710 
7il 
712 
713 
714 
715 
714 
717 
718 
719 
720 
721 
722 
723 
724 
725 
724 
727 
728 


REDGE: 


LRE1: 


LRE2:? 


PAGE 
ASM 5.9 


SENTER WITH C AS REQUIRED FOR REDGE 

sADDS N TO B, N BEING A MEASURE OF THE BIT CELL LENGTH 
SRETURNS CARRY SET LF BOTH EDGES FOUND, (NC.NZ) IF BREAK» 

3 (NC, Z) IF B REACHES 254 

PTOTAL LaP+oPH(N+10) T-STATES IF BOTH EDGES FOUND, INCL CALL & 
3 RET BUT EXCL UP TO SO+SN T-STATES DELAY FOR RAM ETC ACCESS 
SPRESERVES DEHL, ALSO & IF BOTH EDGES FOUND 


CALL ROELIGE 


RET NC 


LD A, 22 
DEC A 


sCOUNT: TIME UNTIL NEXT EDGE 
SWAITS ABOUT 115 MICROSEC FRUM START OF CALL BEFORE FIRST TEST 
3 TO ALLOW FOR BOUNCING AFTER FREVIGUS EDGE 
SENTER WITH BIT CTAFE_I-1] OF C HOLDING CURRENT POLARITY, D2-Do 
5 HOLDING CURRENT BORDER COLOUR (SEE ANTEFENULTIMATE INSTR) 
;ADDS N TC B, WHERE N IS A MEASURE OF THE TINE StFORE THE EDGE 
3 WAS FOUND 
3RETURNS CARRY SET IF EDGE FOUND, (NC,NZ) IF BREAK PRESSED, 
5 (NC,Z) IF B REACHES 254 
STOTAL 67+59#(N+5S) T-STATES IF EDGE FOUND, S9*#(N+5)-23 IF B 
3 REACHES 2546, IN EACH CASE INCL CALL AND RET BUT EXCL UP TO 
3 25+5N T-STATES DELAY FOR RAM & ULA ACCESSES 
SPRESERVES DEHL, COMPLEMENTS C IF EDGE FOUND ELSE PRESERVES IT 


WAIT 100 MICROSEC 


WR NZ LREL 


Ano A 
INC B 
RET Z 
LO A,7FH 


IN A, (I_PORT) 


RRA 
RET NC 
XOR C 


sWITH NZ IF BREAK PRESSED 


AND 1.SHL. (TAPE_I-1) 
IR Z,LRE2 s1F TAPE DATA UNCHANGED 


Lo AL 
CPL 

LO CA 
AND 7 

OR 8 


sHERE WHEN EDGE FOUND 


sSET BIT 3 FOR INACTIVE TAFE QUT a 


QUT (O_PORT),A $FLIP BORDER COLOUR 10 SHOW USER EGE FOUND | 
SCF 


CASSEITE TAPE STATEMENTS TAPE os, ; PAGE 7 


LOC OBJ CUDE M STMT SOURCE STATEMENT ASM 5.9 
729 #*HEADING CASSETTE TAFE STATEMENTS 
730 
731 SLVM: sDEALS PRELIMINAKILY WITH SAVE, LOAD, VERIFY OR MERGE STATEMENT 
732 SENTER WITH (T_AUDR) = 1+ADDIRESS CF SYNTAX TEMPLATE. 
733 . 3 IF CHECKING SYNTAX, THEN CHECKS SYNTAX. 
734 31F RUNNING, THEN SETS UP HEADER BLUCKS IN RAM, POINTED AT BY 
735 3 IX. 
736 HFOR SAVE, THERE IS JUST ONE BLOCK, AT (IX), & IT WILL BE THE 
737 ; HEADER BLOCK ON “Ise, 
738 +FOR LOAL! & VERIFY, THERE ARE TWU BLOCKS, AT (IX) & (IX+17).~ 
739 ; (HAT AT (IX) IS THE INFURMATION NEEDED FOR IDENTIFYING & 
740 ; COPING WITH THE READ FILE, &' THAT AT (IX+#47) IS FOR THE 
741 ; HEADER BLOCK OF THE REAL FILE. 
74z $WHEN RUNNING, CAKRIES ON TO MORE SPECIALIZED CODE WITH HL —> 
743 ; PIECE OF RAM TO BE SAVED/LOADED INTO/VERIFIED AGAINST. 
744 ; (HL = O FOR LOAD UNFOUND ARRAY. ) 
745 . sENTER WITH (SP) = NEXTEM (IN MOLIULE SYNTAX). 
746 SSMASHES A‘F‘B‘C’D‘E‘H‘L’. 

0143 © 3A745C 747 LD A, (T_ADDIR) 

0144 O1€119 749 LD BC, TEMP3? +FETCH SYNTAX TABLE ADDRESS 

149 "91 -  7a9 SUB C sREDUCE BY SYNTAX TABLE ENTRY - SAVE=0 ETC. 

O14Q  32745¢ 750 LD (T.AUDR),A  $(T_ADUR) *= 0,1,2 OR 3 FOR SAVE, LOAD, VERIFY OR MERGE 

751 

O140 DDES 752 PUSH IX 

O14F one 753 EXX - 

0150 21EF1B 754 LD HL» TEMLO _ $ADDR . 

0153 s«ES : 755 "PUSH «HL 

0154 = 2E00. 736 Lo L, H SELECT 

O1S&  26FF 57 LD OH, HOME 

o15S «ES yea PUSH HL 

0159 210000 759 LD HL, 0 

o1sc ES 760 PUSH = HL +PRM_OUT 

o1sn) «ES 741 -PUSH HL 3 PRM_IN 

O15SE DF 762 EXX 

O15F cpDo0d0dO0 xX 743 CALL = CALL_BANK 

0162 DDE1 764 FOP IX 
745 . 

0164 FDCBOI7E 744 BIT 7) (IY-Y+FLAGS) 

0168 28466 7&7 UR ZsLSM4 
763 SAT RUN TIME WE SET UP ONE (FOR SAVE) OR TWU (FOR THE OTHERS) 
749 +: AREAS OF 17 BYTES EACH FOR THE HEADER BLOCK ON TAPE. 
770 +WE LABEL THE BYTES CIF THESE AREAS. 
771 HDTYPE: ‘EQU 0 $1 BYTE ~ 0 FOR PROGRAM, 1 FOR NO. ARRAY, 2 FOR CHAR. 
772 a ; ARRAY OR 3 FOR BINARY. 
773 HEINAME: "EAU 1 $10 BYTES FOR NANE ~ ANY PRINTABLE ASCII CHARS, SPACE- 
774 ; FILLED ON RIGHT. FOR LOAD/VERIFY/MERGE "", 1ST 
775 ; ; CHAR 18 FFH 
7/76 HDLEN: EQU 11 $2 BYTES - LENGTH OF DATA BLOCK (O IF UNSPECIFIED IN 
777 ; LOAD/VERIFY CODE ...3 UNDEFINED IF LOAD UNFOUND 
778 ; ARRAY). 
779 HDADD: EQU 13 $2 BYTES - ADDRESS. 
730 3FOR PROGRAMS, USUALLY S000H, BUT ALSO USED FOR THE 
781 : ; STARTING LINE NO. IN SAVE ... LINE ... . 


732 ‘ 3FOR ARRAYS, THE 2NL BYTE = NAME OF ARRAY AS IN 
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Loc OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
723 A 
784 $ FOR CHARS. ) 
. 785 3 
Tab : ; LOAL/VERIFY). 
787 HDVARS: Eau 15 32 BYfES, USED ONLY FOR PROGRAM, 
: 733 3 BEGINNING OF THE PROGRAM. 
O14Q 011100 739 LO 8C,17 
01460 3A74EC 730 ‘LD A, (TULADUR) 
O170 AZ TPL AND A 
O171 2802 792 JR Z,LSM22 
0173 «OE22 793 LO c,34 
, 794 LSM22: o$RST COPYUP 
795 ' 
0175 DDES 796 PUSH IX 
0177. DY 797 EXX 
0178 213000 792 LD HL, COPYUP 
O17B ES 799 FUSH HL 
O17C 2600 B00 me) L, H SELECT : 
QL7E. 246FF = a LD H, HOME 
o1go0 | ES 802 PLUSH HL. 
O1S. 210000 S03 ; LD HL,» 0 
o1e4 €S - B04 ‘PUSH HL. 
o1g5 ES Os: . FLUSH HL. 
O186 Dy B06 EXX : 
©187  ChOoO0Q xX 807 CALL CALL. BANK 
O12Q DDEL 2038 Por - Ix 
i 809 
o1sc DS $10 PUSH DE 
o1sn)) =o GEA 211 POP IX "sx 8->. 1ST BYTE UF SPACE 
812 " $WE INITIALIZE THE NAME PART OF THE 1ST AREA WITH AN FFH & 3° 
213 3 SPACES. 
O1SF O40OB 814° LD B,i1 
- O1PL sEzO0 e15 LD AL’ ¢ 
_O19% 12 814 LSM24: Lo (DE),A 
0174 ° 13 S17 INC DE 
o1e5 10FC $13 DUNZ LSM24 
0177 DEB601FF S19 LD ¢(1X+HDNAME)», OFFH 
S20 
O19R DUES 821 FUSH . IX 
o19D De B22 EXX 
OLVE 2iAFZF $23 Lo HL. POPSTR 
O1A1L ES B24 PUSH HL 
‘O1A2  2EQO S25 Lo “L, H SELECT 
0104 246FF S24 LD a H, HOME 
O1AS ES S27 FUSH HL 
O1A7 210000 823 Lo HL, O 
O1AA ES ee PUSH HL 
O1AH ES 830 PUSH HL 
o1ac 9 rea EXX 
o1aD cnhoo00) XxX) B32 CALL CALL_BANK 
oO1B80 DDEL S23 POP IX 
; 834 
O1B2 Z2i1F46FF 235 : LD HL,-10 


O1BS OB S346 LEC BC 


’ VARTABLE RECORD (fOr 3 BITS = 100 FOR NUMBERS, 
FOR BINARY, THE LOAD ADORESS (0 {F UNSPECIFIED IN 
THE OFFSET OF THE 
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TAFE PAGE 9 
Loc OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
O1LB4 ap 8237 Ann HL, BC 
O1B7 03 B28 INC BC 
OLBS 3OOF B3y JK ND,LSMZ SUNLESS STRING LENGTH = 0 OR > 10 
O18 3A745C £40 LD A, (TUAQDR) 
OLED § A7 S41 ' AND A 
OLBE 2002 $42 JR NZ.LSM246 SUNLESS SAVE 
o1co S43 RST ERROR sERROR F, INVALID STRING IN SAVE 
oO1CL OE 244 DEFB 14 
845 , : 
8464 LSM2és SHERE FOR LOAD/VERIFY/MERGE WHEN STRING LENGTH = 0 OR > 10 
S47 H (WHEN WE CUT IT DOWN TO 10). BC = STRING LENGTH. 
o1c2 73 843 LD A,E 
O13 Bl 849 OR'C 
6104 230A 850 JR Z,LSM4 
O1C6 010000 S51 LO BC,10 g 
S32 LSM27s ‘ SHERE TO COPY NAME INTO HEADER AREA. 
833 3DE -> NAME, BC = LENGTH (BETWEEN 1 & 10). 
oO1cyg DES 854 PUSH IX : 
O1iCB El SSS POP HL 
o1cc B54 ASSERT HDONAME=1 .- 
o1ec 23 S57 INC HL 
oico EB bschect nd EX DE.HL 
O1cE EDRO as LOIR 
840 LSM4: SHERE TO DEAL WITH SPECIFIER, EITHER CHECKING SYNTAX OR RUNNING 
S41 sRST IGN_SP : 
B42 
Cibo =D ; $43 PUSH Ix 
oin2 ny S44 EXX - , 
O13 211800 845 LO HL, IGN SP 
o1n& ES B46 FLISH HL. 
o107 ZE0O 847 CD L, H SELECT 
O19 ZGFF 848 Lo H, HOME 
QO1UIB ES 349 PLUSH HL 
o1Dc 210000 870 Lo HL.» O 
O1LOF eS S71. FLISH HL 
O1£0 ~°ES 872 PUSH HL 
O1EL Dy 873 EXX 
O1EZ CLODOO 874 CALL CALL_BANK 
O1E5 DEL 875 Purp IX " 
S74 
O1E7 FEES . 277 CP DATATK 
OLE? C23A02 873 JP NZ,LSMS 
79 SHERE FUR ARRAY TYFE. : 
880 ® $SPECIFIER IS DATA ARRAY NAME () 
oO1ec SA745C 1 LO A(T_ADIR) 
O1EF FEOS Sa2 CP 3 : ee 
O1F1 CA7108 S23 JP Z,GOQTOQ_SYNERR SIF MERGE 
: 234 sRST NXT_IS 
Sos : 
O1F4 DDES B84 PLUSH Ix 
O1FS D9 8s7 EXX 
O1F7 212000 pata) Lo HL» NX1_1S 
O1FA ES Seo PUSH HL 
O1FB  2E00 890 LD L, HUSELEC' 


CASSETTE TAFE STATEMENTS ‘TAPE PAGE 10 


LOC 6B CODE M STM SOURCE STATEMENT ASM 5.9 
O1F0  24FF ao LD H, HOME 
O1FF ES a72 PLUS HL 
o200 210000 S73 LD HL, © 
oz03 ES a4 PUSH HL. 
aO204 ES ‘ Bos FUSH HL. 
205 Le B76 EXX 
O20  CbO000 xX 897 CALL CALL BANK 
an 
oz09 Te avy EXX : 
O20R 21702C 700 LO HL, FINDUN 
oz0n ES 201 ; PUSH HL 
OZ0E 2E00 902 LD L» HU SELECT 
0210 26FF 903 LD H, HOME 
o212 ES 904 PLUSH HL 
OZ13 210000 205 Lo HL, © 
0216 ES IG PLUSH HL. 
o2Z17 ES’ 907 PUSH HL 
Oz18 Le 908 EXX 
o2z17?- Choo9o xX 707 |. CALL CALL_BANK 
o21c DEL 210 FOP IX 
: oe | : 
O21E CERF? 912 “SET 72C 3IF RUNNING, t= NAME FCIR VARIABLE RECORD 
OZ20 3008 912 : JR NCL LSM42 $1F CHECKING SYNTAX GOR ARRAY FOUND 
OZ22 210000 914 LO HL.O : ; bons i Tn 
OZ25 B3A745C 915 LD A, (TUADDR) : 
oz2s 35 P16 DEL A ; 
Ooze? 2816 . $17 JR Z,LSM425 $IF LOAD WITH ARRAY NOT YET EXISTING 
O228 919 RST ERROR SERROR 2, VARIABLE NOT FOUND 
o2z2c an 919 DEFB 1 
920 : : 
O22D C2710 R Veil LSM42: JP NZ, GOTO_SYNERR sIF CHECKING SYNTAX & NO BRA 
O230  FDCBOIL7E IE2 BIT 7. (IY-Y+FLAGS) 
223 
.0234 2818 924 JR Z,LSM43 
$25 3HERE WHEN RUNNING & ARRAY FOUND 
Tal 3HL -> NAME IN ARRAY RECURD. 
927 
923 
2346 22 923 LSM4215 INC HL $HL s—> LENGTH IN ARRAY RECORD 
0237 7E 930 LOI A, (HL) 
o232 DL770B 91 LD (IX+HDLEN).A 
O23B 23 932 INC HL 
oz3c 867E aca] LO A, (HL) 
o2z3D °° Dn770c 934 LD (IX+HDLEN+1),A hoes 
0240 23 935 ING’ HL 
OozZ41 DLZ71L0E 9724 LSM425s LD (IX+HDADD+1) 2c 
0244 3E01 937 LD Ast sFOR NO. ARRAY 
Oo2445 CH71 938 BIT 6.C 
o248 2801 939 JR Z,LSM426 3IF NO. ARRAY 
o24Q 3C 940 Inc A 3A t= 2 FUR CHAR ARRAY 
o24B pD7700. 941 LSM426: LD CIX+HDTYFE) A 
oz4E EB 942 LSM43: €X DE,HL 
943 sRST NXT_IS 
944 


CASSETTE TAPE STATEMENTS 


LOG 


O24F 
o251 
‘geee 
O255 
O24 
O25S 
O23A 
O25B 
OSSE 
O2SF 
a260 
O241 
O264 


O266 
O2463 


O26A 
0260 
o260 
0270 
O271 
0273 
O275 
0276 
02/9 
Q27A 
02/78 
0276 
O27F 


O231 
O285 


0286 


287 


OBJ CODE M STMT SOURCE STATEMENT 


DOES 
{rp 
212000 


ny 
CroOQOO x 
DDEL 


FE29 
20C3 


ODES 
ne 


* 212000 


ES 

ZEOO 

26FF 

ES 

210000 

ES : 

ES 

ne 

cDpo000 x 
DIVE. 


FDOCBOL7E 
cs 


EB 
C34104 R 


FEAA 
2033 


SA7495C 
FEOR 
CA7108 R 


DOES 
DY 
212000 
ES 
ZE00 
Z26FF 
ES 


945 
PAs 
947 
949 
949 
950 
951 
P52 
953 
954 
955 
956 
957 
#59 
960 
Pel 
62 
963 
964 
965 
Pb 
967 
968 
969 
970 
971 
972 
973 
974 
97/5 
97b 
$77 
978 
979 
980 
931 
92 
PE 


a4 


985 


WES 

a7 
Wi 
929 
990 
DIL 
992 
993 
wo 
eos 
PIG 
Sd7 


998 


LSMS& 


TAFE 


PUSH 
EXX 


CP 


JR NZ» LSM42 
sRST NXT_IS 


“ye 


PAGE 11 
ASM 3.9 


IX 


HL,» 
HL 
Ly» H SELECT 
H, HOME 


NXT1S 


CALL BANK 
IX 


S(WHENCE TO SYNERR) IF CHECKING SYNTAX & NO KET 


FLUSH Ix 

EXX 4 
LO HL, NXT_IS : ‘ 

PUSH HL i wes ee oe 
LD L» HSELECT , a or a ae 

Lo H» HOME 

PUSH HL 

Lo HL, 9 

PUSH HL : 1 i 

Pl SH HL. 4 + 1 a 

EXX 

CALL CALL. BANK 

POP Ix Ri § 4 

BIT 7, CIY-Y+FLAGS) 

RET z 

EX DE,HL 3HL ?-> NO. DIMS OF ARRAY (OR := O IF ARRAY NOT FOUND) * 
IP LSM7 

CP SCRNTK . ERR oils dahon 


JR NZ, LSMS2 
SHERE:- FOR SCREEN, 
3 (fQ SAVE OISPLAY FILE). 
LD A» (T_ADDR) 
CP > 
JF °Z, GOTOLSYNERR 
SRST NXT_IS 


3IF MERGE 


PUSH Ix 

EXX 

LO HL» NXT_1S 
PUSH HL 

LD L, HO SELECT 
Lo ' H, HOME 


WHICH IS EQUIVALENT TO COUE D_FILE, 3282449 
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Loc OBJ CODE M SINT SOURCE STATEMENT ASM 5.9 
OZA2 210000 999 Lu HL, 
OZAS ES 1000 PUSH HL 
OZA6 ES 1004 PLUSH HL 
OZA7 Le 1002 EXX 
O2A3 ChOOCO xX 1003 CALL CALL_BANK 
O2AB DDE 1004 POP IX 
1005 
OZAD FOICBOI7E 1006 BIT 71 (IY-Y+FLAGS) 
O2B1 Cs 1007 RET Z 
1003 ‘ 
O2B2 DD360R00 1009 LD (IX+HOLEN) »32#24#9. AND. OFFH 
O2ZB4 DIB60CiB 1010 LO (LX+HDLEN+1),32#24#9, SHR.S 
‘O2BA 210040 1011 _ LO HL, D_FILE 
O2BD 86 DL /S0n igiz LD (IX+HDADDD Lt 
o2lO DD740E 1013 LU (IX+HDADD+1).H 
0203 Capsos R 1014 JP LSMS7 
1015 
02046 FEAF 1014 LSMSZ:- CP OP_TK+CunE 
ozc8 C2DFO3  R 1017 JP NZ+LSMG 
1018 sHERE FOR BINARY TYPE? 
‘ 1019 ; SAVE/LOAD/VERIFY:... COE START, LENGTH 
1020 3 OR LOAD/VERIFY ... COLE START” 
1021 + GR LOAD/VERIFY ... CODE 
1022 $ZERO VALUES ARE USED FOR THE ABSENT CASES OF START & LENGTH 
1023 ; IN LOAD & VERIFY.’ 
.O20B  3A745C 10.4 LD A, (T_ALOR) 
O2CE FEO3 ' 1025 cP 3 
O2D0  CA7108 RR 1026 JP Z,G0TO_SYNERR: 31F MERGE 
1027 SRST NXT_IS 
1028 
o203 DDES 1029 - . PUSH IX 
o2n5 ng 1020 EXX 
0206 212000 1031 Lo HL» NXT_IS 
ozn? ES 1022 PUSH HL 
O2DA, 2E00 1033 Lo L, H SELECT 
O20C 26FF 1034 LD H, HONE tan 
oZz0E ES. 1035 PUSH HL 
OzIIF 210000 1026 LD HL, 0 
O2E2 ES 1037 FLUSH HL 
OZE3 ES 1033 PUSH HL ; 
O2ZE4 UP ° 1039 EXX ma 
O2E5 cnoo0do xX 1040 CALL | CALL_BANK 
1041 
o2zE9 DP 1042 EXxx ° 
OZE9 21E721° 1043 Lo HL,» TERM? 
O2EC ES 1044 PLUSH HL 
OZED 2E00 1045 Lo L» H SELECT 
O2EF 26FF 1044 Lo H» HOME c 
O2F1 ES 1047 PLUSH HL 
OZF2 210000 1048 - LD HL, 0 
O2F5 ES 1049 PUSH HL 
O2F&6 ES "1050 PUSH HL 
O2F7 DP? 1051 -  EXX 


O2FS CDO00O X 1052 CALL CALL BANK 


° 


CASSETIE TAFE STATEMENTS TAFE PAGE 13 


Loc 6B CODE M STMT SGURCE STATEMENT ASM 5.9 
O2FB DEL 1083 POP IX 
1054 
o2Fn 2020 . 1055 JRONZ,LSMS3 - sIF START PRESENT 
OFF  3A745C 1054 LD A, (T_ADDR) 
Os02 A7 1057 AND A 
o203 CA710@ R 1058 JF Z,GOTO_SYNERR SIF SAVE 
1059 
03804 DDES 1040 FUSS IX 
os08 De? 1041 EXX 
oso?  21511C 1042 LD HL, STK_O 
osoc ES 1043 PU3H HL 
o20B 2EOQ . 1064 LD L, HSELECT 
O30F  24FF 10465 Lo Hy HOME 
O211 ES 1044 PUSH HL 
o312 210000 1047 Lo HL, oO 
os15 ES 1048 FUSH HL. 
O814 ES 1049 PLUSH HL. 
0217 ne 1070 . - EXX 
o31e coocedO XxX 1071 CALL CALL_BANK 
O31B DOEL 1072 ; POP IX : 
is : 1073 
os1n 6faas 1074 JR LSMS4 
1075 
1074 LSMS3: sCALL TEM6 
1077 
OS1F LDES 1078 PUSH IX 
OR2 by ‘ 1079 EXX 
OS22 Z1ES1b 1080 Lo HL, TEMS. 
os25 ES 1081” PUSH HL 
0224 2Ea0 1082 Lo L, H-SELECT 
O328  24FF 1083 . Lo H, HOME 
-O82A ES 1054 PLISH HL 
O22B 210000 1085 Lo HL, O 
OSZE ES 1084 FSH HL. 
OS2F ES 1087 PLUSH HL. 
O230 °° D9 1088 EXX 
o231 choo0d xX 1089 CALL CALL_BANK 
1070 
10%4 SRST IGN USP 
1092 
br 1093 EXX 
211800 1074 LO UHL, IGN_SP 
ES 1095 FUSH HL 
O239 BEaO 1076 : Lb 8 L. H SELECT 
O23B 246FF ~ 1097 Lo H, HOME 
O2sD ES 1098 PUS HL 
OS3E 210000 1039 Lo HL, O 
Q341 ES 1100 - FLUSH HL 
O342 ES 1101 FUSH HL A 
os42 Ly 1102. EXX 
0244 Choogdg x 1103 CALL CALL_BANK 
O247 [DEL - 1104 Por IX 
1105 


aon49 FE2C 1106 CP “,° 


. 
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Loc O08) CODE M STMT SQURCE STATEMENT ASM 5.9 
0348 2320 1107 JR Z,LSMSS 3IF LENGTH FRESENT 
o34n  3A745C 1108 LO A,» (T_ADDR) 
o350 AT - 1109 ANL! A 
o351 CA7LOS8 1110 JP Z,GOTO_SYNERR 3IF SAVE, NO LENGTH 
1111 LSMS4: ;CALL STK_O 3DEFAULT LENGTH = 0 
1112 
0354 DDES 1113 PUSH IX 
0354 DP 1114 EXX 
O357 21511C 1115 Lo HL, STK_O 
o35A «ES 1114 PUSH HL 
O35B 2E00 1117 LD L, H SELECT 
08 26FF 1118 Lo Hy HOME 
ES 1419 PUSH HL 
O240 210000 1120 Lo HL; 0 
0243 ES yire PLUS HL. 
0364 ES 1122 PUSH HL 
0265 LIP 1123 EXX 
0244  cHoood 1124 CALL CALL_BANK 
0349 DUEL 1125 POF: 1X 
1126 
O34B- (182A 1127 JR LSMS6 
1128 
1129 LSMSS: sRST NXT_IS 
1130 
DOES 1131 PUSH IX 
Lg 1132 EXX 
212000 1132 Lu HL, NXT_IS 
ES 1124 PLISH HL ; 
2E00 1135 Lo L, H SELECT 
26FF 1134 Lo H, HOME 
ES 1137 PUSH HL 
210000 1138 Lo HL, © 
ES (1139 PUSH HL 
ES 1140 PUSH HL 
be 1141 EXXx 
choove 1142 CALL CALL_BANK 
1143 
Le 1144 EXX 
Z1ES1p 1145 Lo HL,» TEMG 
ES 1146 PUSH HL 
2E00 1147 Lo L, H-SELECT 
24FF 1148 Lo H, HONE 
5 1149 PUSH “HL 
210000 1150 LO» HL, 0 
ES ° 1151 PUSH HL 
o270 ES 1152 FAISH HL. 
O37. =e 1153 EXX 
O392 cCDoodE 1154 CALL CALL_BANK 
oz?5 DDEL 1155 FOr IX ; 
1154 . 
1157 LSM56: $CALL END? 
-, 1158 
0297 FDCHOI7E 1159 BIT 7, CIY-Y+FLAGS) 
O39B Cs 1140 RET z 
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Loc OB CODE M STNT SQURCE STATEMENT 3M 5.9 
1141 
O39 Does 1162 FUSH IX 
OS9E oP 1143 EXX 
OB9F 21231F 1164 LD HL. FIX 
O3A2Z ES 1145 PUSH HL 
OSA 2E00 1144 LO L. HOSELECT 
OSAS 246FF 1147 LD H. HOME 
OZA7 ES 1163 PUSH HL 
OBAS 210000 1149 LD HL, O 
OSAB ES 1170 PUSH HL 
osAc. ES 1171 PUSH HL 
O3AD ny 1172 EXX 
OSAE CHoOo0o X i173 CALL CALL_BANK 
O3B1 DDE 1 1174 FUP Ix 
: 1173 : 
OSB LO710B 1176 LU (IX+HDLEN),C 
O3BS no7o0c 1177 JLD CIX+HDLEN+1).8 
1178 
OSB? DOES 1179 PUSH Ix 
OSBB . DP? 1180 EXX 
OSEC #1231F 1121 LD HL, FIX 
OSBF ES 1132 PUSH HL 
oslo ZEQO 1153 LO L, H-SELECT 
OSl2 26FF 1154 Lo ‘ H» HOME 
O34 ES 1155 PUSH HL 
210000, 11246 LD HL, O 
ES 1187 PUSH HL 
ES 1153 PLUSH HL 
OSCA | a 1129 EXX 
OSB ChOo0O X 1190 CALL CALL_BANK — 
- O3CE DDE 1 1191 FOP Ix 
1172 
O2DO pp7100 1193 LU CIX+HDALID),C 
o3D3 DIV7O0E 1194 LO (LX+HDADD+1),B 
O2D6 ° 60 1195 LO HLB 
O3D7 49 1194 LD LC 
1177 LSMS7: sHERE FOR BINARY TYPE WHEN RUNNING, WITH (CIX+HDLEN) 
1198 3 CIX+HDADD) SET UP & HL = START ADDRESS. 
oO3D3 DL340003 119° LOD (IX+HOTYPE),3 
o3nr C36104 R 1200 JP LSM7 ; 
: 1201 
O30F FECA 1202 LSMé: CP LINETE 
O3E1 2208 1203 JR ZyLSM62 
; 1204 ; 
Ok 3 FDCBOL7E 1205 BIT 71 CIY-Y+FLAGS) . - ; : 
OSE7 cs 1204 RET Z sRETURN IF CHECKING SYNTAX 
: 1207 LSMé1s 
OSES DIDS40E80 1208 LO (IX+HDALD+1 )»S0H sFOR LOAL BUT DON’T GO 
O3EC 1253 1209 JR LSMéS 
1210 
1211 LSMé62: sHERE FOR LINE LINE NO. 
OSEE SA7450 1212 LD A. (T_ADDR) : 
OSF1 A7 1212 ANU A 
OBF2 C27108 R 1214 


JP NZ. GITOLSYNERR SUNLESS SAVE 


¥ 
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CASSEITE TAPE STATEMENTS . 
LOC OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
1215 +RST NXT_IS 
1214 
O3F5 DIES 1217 PUS IX 
O3F7 DY 1218 EXX 
O2F& 212000 1219 Lo HL, NX1.1$ 
O2FB ES 1220 PUSH = HL 
o3FC = 2E00 1221 LD L, H-SELECT 
O3FE = 24FF 1222 Lo H, HOME 
0400 «ES 1223 PUSH HL 
0401 210000 1224 et) HL, o 
0404 «ES 1225 PUSH = HL 
0405 ES 1224 PUSH = HL : 
0406 De 4297 EXX 
0407 ChOO0O = X:-1228 CALL CALL_BANK 
1229 
o40A DP 1230 EXX 
O40B 21E51B 1231 Lo HL, TEM& 
040E «OES 1232 PUSH = -HL 
O40F = 2E00 233 Lo L, H SELECT 
O411 246FF 1234 Lo H, HOME 
O413 «ES 1235 PUSH HL 
0414 210000 12246 Lo HL,» oO 
0417. ES 1237 PUSH = HL 
O418 ES 1228 PUSS HL 
O49 De 123 EXX..” 
O41A cChoodo xX 1240 CALL  CALL_BANK 
O4iD DDE: | 1241 POP 1X 
1242 . 
O41F FDCHOI7E 1243 BIT 7+ CIY-Y+FLAGS) 
0423 «ce 1244 RET z 
1245 
0424 = WES 1244 PUSH IX 
0426 DP 1247 EXX 
0427 21231F 1248 Lo HL, FIX_U 
O4ZQ ES 1249 PUSH HL 
0428  2E00 1250 LD L, H SELECT 
0420 9 26FF 1251 LD H, HOME 
O42F «ES 1252 FUSH HL 
0430 210000 1253 Lp * HL, oO 
0433 «ES 1254 PUSH HL : 
0434 «ES 1255 PUSH HE 
o435 one 1254 EXX ; 
0426 cCLoo0;O xX 1257 CALL CALL_BANK 
0439 = DME1 1258 PoP 7 IX 
1259 
0438 = DD7100 1240 LD (IX+HLADD) Cc 
0436  DD7O0E 1241 LO (IX+HDADO+1),B 
0441 DD260000 1262 LSM65: LD (IX+HDTYPE).0 
0445 = 2AS9SC 12423 LD HL, (E_LINE) 
0448 EDSBSSSC 1244 LD DE, (PROG) 
o44c 37 1245 SCF 
o44u EDS? 1264 SEC HL, DE 3HL t= LENGTH OF LATA (EXCLUVING SOH AT END OF = | 
044F = DUT50B 1267 LD CIX+HOLEN) +L ; VARIABLES). : 
0452 DD740C 1268 LU. CL1X+HDLEN+1)+H 
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Lo OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
o455 ZA4BSC 1269 LD HL: (VARS) 
0453 EDS2 1270 SBC HL.DE 3(NB NC) HL t= (VARS)-(PROG) 
045A ON7S0F 1271 LD CIX+HUVARS) IL 
O4su 0D7410 1272 LD CIX+HUVARS+1),H 
0460 EB 1273. . EX DE.HL SHL &-> PROGRAM 
1274 LSM7: iHERE WITH HEADER SET UP & HL -> INITIAL BYTE OF DATA. 
1275 3IX -> HEADER, 
O41 3A745C 1276 LD A, (T_ADDR) 
0464 A7 1277 AND. A 
0465 CAE907 R 1278 JP Z,SAVE 
1279 LVMs : SHERE TO CONTINUE RUNNING FOR LOAD, VERIFY OK MERGE WITH 
12280 $ (T-ADDOR) = 1,2 OR 3 RESFECTIVEL’. 
1291 . 1X -> A 34 BYTE AREA? THE 15T 17 BYIES ARE AS SET UP IN SLVM, 
1282 3 & THE NEXT 17 ARE USED FOR READING HEADERS INTO. 
3HL -> 18ST BYTE TO BE LOADED INTO/VERIFIED AGAINST: 
3FOR PROGRAMS — IN LOAD & MERGE, HL 18 NOT USED 
3 IN VERIFY, HL -> 157 BYTE OF PROGRAM. 
3FOR ARRAYS - HL -> NO. DIMENSIONS IN ARRAY (OR HL = 0 IF 
3 LOAD & ARRAY DOESN‘T EXIST YET. 
;FOR BINARY - HL = START ADURESS IF SPECIFIED, ELSE 0. 
O4468 ES PUSH HL : . : 
0469 G11100 1270 LD pC,17 . ; 
046 DpoY 1271 ADD 1X,BC 31X :-> 1ST BYTE OF AREA FOR READING IN TO 
1292 3WE NOW WANT TO FIND THE FILE ON TAPE... 
1273 FOR EACH FILE WE READ PAST, WE PRINT ITS TYPE & NAME ON THE 
1274 H SCREEN. 
’ OAGE LDES ' 2P5 LLMas PUSH IX 
0470 111100 L296 LO DE, 17 . ; ; 
0473 AF 1297 XOR A 3A t= ZERO CODE BYTE FOR HEADER BLOCK 
0474 37 1293 SCF FOR LOADING 
0475 cDPy400 R 1239 CALL RTAPE 
0478 DDE t 1300 POP IX ; ; 
O47A SOF2 1201 JR NC,LLM3 3IF ERROR - TRY ANUTHER 
o47c SEFE 1302 LO A,HIDLS 
1303 
O47E ‘DOES 1304 FUSH Ix 
0430 Lr? 1305 EXX 
043 213012 1304 Lo HL, SELECT 
0424 ES 1307 PUSH HL. 
OFS 2E00 1303 Lo L, H SELECT 
0427 26FF 130? Lo H, HOME 
n4ey ES 13190 FLUSH HL 
048A 210000 1311 LO HL, O 
42D ES 1312 PUSH 9 HL 
O45E Em 1313 PUSH ° HL. 
O48F D7 1314 EXX 
0490 CaoOoOO X 1315 CALL CALL BANK 
0493 DDE tL 1314 POP IX 
1317 : 
O495 FD345203 1313 LO (IY-Y+SCR_CT),3 350 LOAD EIC NEVER ASK ABOUT SCROLLING 
1319 IN WHAT FOLLOWS WE USE C TO COUNT THE MATCHES BETWEEN THE NAME 
132 3 FOUND & THE NAME REQUIRED, INCREMENTING © ONCE FOR EACH 
1321 3 MATCH. IF C ENDS.UP +VE THEN THE FILE 1S FOUND. 
1322 


31F THE TYPES MATCH THEN © IS INITIALIZE TO -10 SO THAT 10 


SS 
no 


0429 
O49B 
O49E 
O4Al 
O4AS 
O#AS 
O4A7 
O4A? 
O4Ac 


O4ap 
O4AF 


O4BO - 


O4B3 
O44 
O4B4G 
O48 
O4B9 
O4BC 
O4ED 
O4BE 
O48F 
O4C2 


O44 
o4acs 


» O407 


O47 
0403 
O4CH 
O4tr 
Q4CE 
O4ACF 
O400 
o4n2 
O4T13 
O404 


O4n5 | 


0406 
0407 
o4De 
o4ng9 
O4UB 


o40c 
O4bE 


O40F . 


CASSETTE TAFE STATEMENTS 
L 


TAPE 


OBJ COLE M STMT SQURCE STATEMENT 


OESO 
DL7EOO 
DOREEF 
2002 
OEFS 
FEO4 
30CS 
11A83C 
Cs 


DDES 
DY? 
213F07 
ES 


“De 


CDOCdO 
DUEL 


C1 
DOES 


D1 


21FOFF 


QUES 
o> 
211000 


X 


L323 
132 

1325 
1326 
1327 
1325 
1329 
1330 


i 0G id 63 io tg oo 


OMVOn eM ao 


1348 


1350 
1351 


1352 


1353 


1354 
1355 
1354 
1357 
1358 
1359 
12340 
1341 
1342 
1343 
1244 
12345 
1364 
1347 
1343 
13469 
1370 
1371 
1372 
1373 
1374 
1375 
1374 


LLM33¢ 


LLM3Ss 


LLMS&és 


s 
5 
* 
3 
3 
. 
3 
: 
i 
* 
3 


AN 
LO C,80H 
LD A. (IX+HD 
CP (IxX-i7+H 
JR NZ» LLMS3 
LO C,-10 
cr 4 
JR NC,» LLMS 
Lo DE,LOMES 
PUSH BC 
PLUS 1X 
EXX 
Lo HL» 
PLUSH HL. 
Lo Ly 
Lo H, 
PUSH HL 
Lo HL, 
PUSH HL 
FUSH HL 
EXX 
CALL CAL 
PoP _ IX 
POP BC 
FUSH IX 
ASSERT HDINA 
PUP DE 
LD HL» -146 
ALD HL WE 
Lo B,10 
1.D As (HL 
Inc A: 
JR NZ» LLMaS 
LO AJC 
ADL A,B) 
LO CLA 
INC TE 
Lo A, (DE) 
CF (HL) 
INC HL 


JR NZ,LLM346 
Inc ¢ 
3R3T WRCH 


PUSH IX 
EXX 
LD HL,» 


FAGE 18 
ASM 3.9 


NATCHES BRING IT UP TOO; IF THE TYPES DON’T MAICH ‘THEN 
C 1S INITIALIZED TO SOH SO THAT NO POSSIBLE NO. OF MATCHES 
CAN MAKE IT +VE. 

EMPTY REQUESTED NAME (= READ IN NEXT FILE) COUNTS AS 10 


MATCHES, WHICH GUARANTEES SUCCESS UNLESS THE TYPES WERE 
WRONG. us : 
TYPE) 3 WHAT IS REQUIRED. 
OTYPE) 


SINVALID TYPE - TRY ANOTHER FILE i 
sLOMES IN THE HOME BANK 


PL MES 


H.SELECT 
HOME 


L_BANK 


ME=1 


4 


BYTE BEFORE NAME CIF FILE READ 
WANTED NAME 

3FOR 10 CHARS IN NAME 

s1F REQUESTED NAME NUN-EMPTY 


5A +8= 10 


IF ANOTHER MATCH OK 
CHAR FROM NAME OF FILE READ 


s 
7 
ry 
? 


WRCH 


CASSETTE TAFE STATEMENTS TAPE PAGE 19 


LOC OBJ CODE M STMT SQURCE STATEMENT ASM 5.9 
O4E2 ES | 1377 FLUSH HL. 
O4ES © ZE00 1378 Lo Ly HUSELECT 
O4ES 26FF 1379 Lo H, HOME 
O4E7 5 1350 FUSH HL 
O4E3 210000 1331 Lo HL, 0 
O4ER ES 1382 FUSH HL 
O4—C ES 1383 PUSH HL 
O4EO De 13s EXX 
O4EE chooog xX 1385 CALL CALL_BANK 
O4F1 = OE 13e6 FOP Ix 
1387 
O4F3  10E0 1383 DWINZ LLM3S 
O4F5 CH79 1387 BIT 72 
O4F7 Ceé—oa RB 1300 JP NZ, LEMS iFILE NO GUOD - TRY ANOTHER 
1371 : SHERE WHEN FILE’ FOUND. 
O4FA EOD 1S? LD A.NL 
1293 s3RST WRCH 
1294 : 
O4Fo DDE 1375 PUSH IX 
O4FE OF 1376 EXX : 
O4FF . #11000 1397 Lo HL, WRCH 
ovo2 ES 1378 PUSH HL 
O503 2600 139 Lo L, H SELECT 
O505 26FF - 1400 Lo H, HOME es : : 
O807 ES 1401 PLUSH HL : 
O80& 210000 1402 Lo HL, © 
O50H ES 1403 PUSH HL 
osoc ES 1404 PUSH HL. 
o50D DP 1405 EXX ; 
OSOE CrHOQOQQ xX 1406 CALL CALL. BANK 
O511 DBEL 1407 POP IX 
1408 : : : 
OF1S El 1409 POP HL 3HL RESTORED TO VALUE AT LVM 
o814 BoZEQO 1410 LD A, (LX+HDTYPE) 
O517  FEOS 1411 CP 3 
o519 °° 2800 1412 JR Z,LBIN_V iFOR LOAD/VERIFY BINARY 
OS1B 3A745C 1413 LL A» (TLADUR? ; 
OS1E 30 1414 DEC A 
OS1F CA6405 R 1415 JP Z,LOAL 
“O822 FEOZ 1416 CP 2 
0524 CA7U0G R 1417 JP Z,MERGE 
1418 
1419 LBINV: i sHERE AFTER LYM TO CONTINUE RUNNING FOR LOAL) BINARY OR VERIFY 
O827  &S 1420 PLUSH HL 
: 1421 ; #FIRST CHECK LENGIHS. FOR PROGRAM OR ARRAY. THEY MUST AGKEESs 
1422 ; FOR BINARY, ‘LENGTH REGUESTED = 0 GR >= LENGTH GOT. — 
O88  DDGEFA 1423 LD LL. (1X-17+HDLEN) 
Os? DDG6FER 1424 LD H, (1X-17+HOLEN+1) $HL t= LENGIH REQUESTED 
OSE LUSEOB 1425 LO E, (1X+HOLEN) ; 
O8S1 = nDssac 1424 LO DO, (IX+HOLEN+2 ) $DE '= LENGTH GOT 
0834 7c 1427 LO A.H i 
o535 BS . 1428 oR 


O33 2500 142° JR Z,LLV3 3FOR BINARY WHEN NO LIMIT SPECIFIED 
oS38 En32 1430 SBC HL, DE : 


Se eae ae ee 


p CASSETIE TAFE STATEMENTS TAPE FAGE 20 
Loc OB! CODE M STMT SUURCE STATEMENT ASM 5.9 
» OS3A 3824 1431 Jk C,ERRR 
oS32C 2807 1432 - UR Z,LLVS 
" OS3%E DOVEOO 14:33 LO As CIX+HDTYPE) 
0541 FEO3 1434 cP 3 
0542 2010 . 1435 JR NZ, ERRR SUNLESS BINARY 
" 1434 LLV3: _ $HERE WHEN LENGTHS CHECKED, CE = LENGTH TO READ - ‘ 
o545 El 1437 FOP HL sHL. t= AUDRESS TO LOAD TO/VERIFY AGAINST be a RE Nore aa ee. 
0546 #=7¢ Vy 1438 LD AH ; wn OEE OE a ok Eo 
» OS47 BS 1439 OR b 
O548 2004 1440 JR NZ) LLV2S 
OoS4A DOD6EOD 1441 LD Ly (IX+HDADU) 
» OS40 DDS60E 1442 LU Hy (I1X+HOADD+1) sHL. §= DEFAULT START IF WAS 0 
os50 ES 1443 LLVSS5: PUSH HL 
O8s1  DOEL 1444 FOP IX 
> O553 BA745C ° 1445 LO A» (TADDR) vo 
O854 FEO? 1444 CP 2 - 
oss3° 37° 1447 SCF ;TO Loan 
" oss? 2001 1443 JR NZ» LLV4 85 : 
OSSB - A7 14497 ANLI A TO VERIFY 
OSSC SEFF 1450 LLV4: LD A,OFFH 3A t= FFH FOR DATA BLOCK ; 
> . 1451 RTAPEL: sCALL RTAPE, ABORT IF ERROR 
OSSE CL940O0 R 1452 ‘CALL R_TAFE 
0561 18 1453 RET C 31F OK 
> 0542 1454 ERRR: RST ERROR SERROR R, TAPE READ ERROR 
0543 1A 1455 DEFB ‘“R’-“A‘+9 M4 
. 1454 LOAD: sHERE AFTER LVM TO CONTINUE RUNNING FOR LOAD (FOR PRUGRAM OR 
‘ ; 1457 ; ARRAY). 
1458 . 
1459 31ST CHECK ENQUGH SPACE FOR NEW PROGRAM OR ARRAY. . 
> 0564 DDSEOR 1440 LOE, ¢LX+HDLEN) — . ot 
0567 Dus60c 1441 LOD, CIX+HULEN+L) ;DE s= NEW LENGTH 
OS4Q ES 14462 - PUSH HL : F 
7 0568 70 1443 LD AH . 
o8éC BS 1444 OR & 
OSSD 2006 1445 UR NZ» LLDZ3 ;UNLESS ARRAY, & NO GOLD ONE FOR DELETION 
> OS6F 13 1444 INC DE 
o870 13 1447 INC DE 
OS71 13 1443 INC DE 
> oS72 EH 1445 EX DE.HL sHL #= LENGTH OF NEW ARRAY + 3 FOR NAME & LENGTH 
O73 1800 _ 1470 JR LLOZS 
1471 
> oS75 DDSEFA 1472 LLU2s: LO L, (1X-17+HLILEN) 
' 0578 DDG6SFB 1472 LO He CIX-17+HDLEN+1 ) ; 
OS7B ° EB 1474 EX DEsHL 
» O87 37 1475 SCF ° ; 
oS7D EnS2 14746 SEC HL, DE : 7 
; QS7F 310 1477 JR Co LLo27 ° 
" 1478 LLD2s: sHERE TO CHECK SPACE WITH HL = NO. EXTRA BYIES NEELED 
O581 110500 1479. LD DE,S 
o584 19 1430 ADD HL, DE sHL +2= 5 FOR LUCK 
» oses 44 1484 LD BLH 
o886 40 1492 LO CL 
1483 : 
» os87 DDBES 1454 PLUSH Ix 


CASSETTE TAPE STATEMENTS TAPE PAGE 21 
LOC OBJ COLE M STMT SOURCE STATEMENT ASM 5.9 
ose? D9 1435 EXX 
ose Z1BB1F 1484 Lo HL, CHK_SZ 
osen ES 1487 PUSH HL 
OSSE 2E00 1433 Lo L, H SELECT 
OS90  24FF 1489 LD Hy HOME 
os7z ES 1490 PUSH HL 
OS93 210000 1491 Lo HL» 0 
O56 ES 1492 PUSH HL 
0597 ES 1492 PUSH HL 
os7s DP 1494 EXx 
os79 cnoode~g xX 1495 CALL CALL_BANK 
ossc = DDE1 1496 PoP IX . 
1497 ; 
OS9E Ei 1498 LLD27! POP HL 
OS9F  DD7ECO 1499 LD As (IX+HDTYPE) 
OSA2 A7 1500 AND A 
OSAS 2866 1501 JR Z+LLOG SIF PROGRAM 
1502 sHERE FOR LOAD AKRAY. 
oR SIF ARRAY DOESN’T EXIST YET, THEN HL = 0 & (IX+HDADO+1) = NAME 
1504 sIF ARRAY DOES EXIST, THEN HL.-> ITS NO. OF DIMENSIONS: ~ 
1505 sWE DELETE THE OLD ARRAY IF IT EXISTS. 
OSAS  7C 1504 LD A»H 
OSAG. BS 1507 UR OL 
OSA7 2827 1508 JR Z,LLD4 sIF IT DOESN’T 
O5AY 2B 1509 DEC AL 
OSAA 46 1510 LD B, (HL) 
OSAB 28 ' 1511 “DEC HL : 
OSAC  4E 1512 LD C, (HL) $BC t= LENGTH OF ARRAY 
OSAD . 2B 1513 DEC HL $HL '-> NAME OF ARRAY 
ObAE 02 1514 INC BC 
OSAF O38 1515 INC BC 
OSBO 03 1516 INC BC 3BC ?= LENGTH OF ARRAY + 3 FOR NAME & LENGIH 
OSB1 = DDZZSFSC. 1517 “LD (X-PTR)»IX = $PRESERVE IX IN A MOVABLE VARIABLE 
1513 
OSBS DES 1519 PUSH IX 
OSH7 DP 1520 EXX 
OSBS 215017 1521 Lo HL, DELREC 
OSBB ES 152 PUSH HL ; 
OSBC 2E00 1523 LD L, H-SELECT : 3 ; = mat 
OSBE 24FF 24 Lu H, HOME 
oSCO ES i525 PUSH HL 
OSC1 210000 15246 LD “HL, 0 
osc4a ES 1327 PUSH HL 
OSCS ES: 1528 PUSH® HL 
osce Dy 1529 EXX 
OSC7 cChooood xX 1530 CALL CALL_BANK 
OSCA = DME 1531 POP = —soIX 
1532 
oscC DDZASFSC 1532 LD 1X.(X_PTR) 
1534 Lipa: iNOW WE CREATE SPACE FOR THE NEW ARRAY. 
OSDO = 2AS95C 1535 LD HL, (E_LINE) 
OSD3 2B 1534 DEC HL sHL ?-> 80H 
oSD4 DLMEOR 1537 LD C, (1X+HDLEN) 
osn7 pp460c 1938 LD B, (1X+HDLEN+1) 


* 


@ @ ¢ 


OSDE 
OSE 1 


OSE2 


“OSE4 


OSES 
OSES 
Onn? 


* OSER 


OSED 

OSEE 
ObDF1 
OSF2 
OSES 
QSF4 


OlTF7 


QOSF? 
OFA 
OSFR 
OSFC 


, OSFD 


OSFE 
OSFF 
500 
0601 
0602 
0603 
0605 


0606 
0408 


O60B 
O60C 
O60F 
0610 
O14 
O417 
OS1A 


0618 
061D 
OG1E 
Q621 
Qa 622 
0624 
0626 
0627 


SETTE TAFE STATEMENTS TAFE ; PAGE 22 
ok! CODE M STMT SOURCE STATEMENT asn 5.9 
cs 1S29 PUSH BD 
03 1540 INC BC 
os 1541 ~INC BC 
os 1542 INC BC 
DU7EFD 1543 LO A, (1X-17+HDADD+1) 3A t= NAME 
FS 1544 FUSH AF 

1545 
DDES 1544 PUSH IX 
ny 1547 EXX : 
21BH12 1542 LO HL, INSERT 
E5 1549 PUSH HL. 
ZE00 1550 Lu L, H SELECT 
Z6FF 1551 Lo H» HOME 
es issz FLUSH HL 
210000 15523 Lo HL, 0 
ES 1554 PUSH HL 
ES 1555 PUSH HL 
ng 1556 EXX 
cDAQ0O 1557 CALL CALL_BANK 
DDEA 1559 POP IX 
; 1559 ; 
23 1540 INC HL SHL &#-> NEW. SPACE 
F1 1541 FUP AF 
77 1562 LD (HL).A . $ (HL) := NAME 
D1 1543 FOP DE iE := LENGTH UF ARRAY 
23 1544 ING HL 
73 8 1545 LD (HL)E 
23 1544 INC HL 
72 1547 LD (HL).D 
23 1548 ING HL 
ES 15469 PUSH HL 
DDE. 1570 POP IX 31X :-> BODY OF ARRAY 
37 1571 SCF 3fo Loan 
SEFF 1572 LO A,OFFH sFOR DATA BLOCK 
CSSEOS 15723 JP RTAPEL 
1574 
i575 LiDé: sHERE TO LOAD PROGRAM. 
15/6 sHL = (PROG) 
EE 1577 EX DE,HL 
ZAS9SC 1573 LO HL, (E_LINE) 
oe 1579 DEC HL 
DD225F5C isso LD (X_PTR), IX SPRESERVE IX IN A MOVABLE VARIABLE 
OD4EOR 1Se1 LO, (IX+HOLEN) - 4 
DD4460c 15S2 LO B, (IX+HDLEN+1 ) 
cs : 1se3 PUSH BC 
158 
Ones 15o5 PLUSH IX 
bey 1586 EXX ; 
214017 1527 LD HL, CELE 
ES 1532 PLUSH HL 
ZEOO 1589 LD L, H-SELECT 
24FF 1570 Lo H» HOME 
ES 1571 PUSH HL 
210000 1592 LD HL, oO 


( 
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CASSETTE TAFE STATEMENTS 


TAPE PAGE 23 
Loc OBJ CODE M STMT SOURCE STATEMENT Asn 5.9 
062Q ES 1593 PUSH HL 
062B «ES 1594 PUSH HL. 
O620 TY 175 EXX 
O62D CHhOoOOO Xx 1594 CALL CALL_BANK 
0630 DDEL 1597 PoP IX 
15°38 
0632 C1 1599 POP BC 3BC t= LENGTH OF NEW ARRAY 
0633 ES 1600 PUSH HL sHL = (PROG) 
0634 C5 1401 PUSH BC 
1402 
0635 DDES 1403 FLUSH IX 
0437 Le 1404 EXX 
.0638 21BB12 1405 Lo HL, INSERT 
O63B ES 1606 PUSH HL 
0630 2E00 1407 LD L, H SELECT 
OSSE 26FF 1408 Lo H, HOME 
0640 ES 1609 FLUSH HL 
0441 210000 1610 LD HL, © 
0644 ES 1611 FUSH HL 
0645 ES 1412 PUSH HL 
0646. fe 1613 EXX 
0647 “CHOQGO xX 1614 CALL CALL BANK 
0648 DDEL 1615 Por IX 
1614 
0640 DO2ASFSC 1617 LD IX, (X_PTR) . 
0650 23 1618 INC HL sHL = (PROG) 
0651 DD4EOF 1619 LO C, (IX+HDVARS) 
0654 [044610 1420 LD B, (IX+HUVARS+1) 
0657 OF 1621 | ADD HL, BC 
O658 22485 1422 LO (VARS). HL 
O65H DDG60E 1423 LD H, (IX+HDADD+1 ) 
O6SE  7C 1424 LO A:H , 
O65F  E4CO 1625 AND OCOH 
0461 200A 1626 RN LED _ _-—4 UNLESS LOAD & Go 
0663 DDSEOD 1627 LD L, (IX+HDADD) ~—— O 
0665 22425C 1628 / LD (NEWPPC)»HL 
0449 FDS60A00 1629 VLD (1Y-Y+NSPPO),0 3SE1 JUMP FOR LOAD & GO 
O66D 8 - 1630 LLDZ: POP DE 3;DE ?= LENGTH TO READ 
O66E [DEI 1631 FOP IX 31X t= (PROG) 
0670 837 14632 SCF 3TO LoaAD 
0671 3EFF 1633 LD A, OFFH ’ $FOR DATA BLOCK 
1624 
1635 ° 3 ### ADDITIONAL 
1424 sRESET “OATAND’ IN ALL CASES OF LUADING A PROGRAM 
0673 2A535¢ 1637 LD’ HL,» (PROG) 
0476 2B 1438 DEC HL 
0677 22575C 1439 LD (DATADD)»HL 
1440 5 tet 
1641 ‘ 
067A CSSEOS R 1642 . JP RTAPEL 
1643 
1444 MERGE: SHERE AFTER LVM TO CONTINUE RUNNING FOR MERGE. 
1645 sHL = (PROG) 
067D DD4EOB 1446 LD C, (1X+HDLEN) 


CASSETTE TAFE STATEMENTS . TAPE PAGE 24 
Loc OBJ COVE M STMT SQURCE STATEMENT ASM 5.9 
0480 8 §=6nb4s6oc 1447 LO @y (IX+HDLEN+1 ) 
0683 C5 1448 FUSH BC 
0684 03 1649 INC EC 
14650 3RST COPYUP 
1651 
0685 DDES 1452 PLISH IX a, 
0687 LP 1453 EXX . 
O4683 213000 1454 Lo HL, COPYUP 
O48 ES 14655 PLUSH HL. ; 
O480 ZEOO 1454 LD L» H SELECT 
OLE 26EF 1457 Lo H,» HOME 
0490 ES 146598 PUSH HL 
OS91 210000 1459 Lo HL, 0 
0694 ES 1440 PUSH HL 
O475  =ES 1661 PUSH HL. 
0696 DP 1462 EXX 
0497 = CLIOQ0O 1463 CALL CALL._BANK 
O69A [DEL 1444 PoP IX 
1465 
O69 2480 1664 LD (HL),SOH 
OG6PE EB 1467 _ EX DE. HL : 
O6OSF DA 14648 POP DE 3DE := NO. BYTES TO BE READ : 
O6A0 ES 1469 PUSH HL 
O6A1 ES 1470 PUSH HL 
o602 DDEL 1671 POP IX $I1X &= (SP).:-> 1ST BYTE OF NEW WORKSPACE ¢ 
Q6A4 = 37 1672 SCF 310 LOAD 
O6AS BZEFF 1473 -LD A, OFFH 3FOR DATA BLOCK 
060Q7 COSEOS 1474 CALL RTAFE1 . 
1475 _ SHERE WITH (SP) -> EXTKA FRUGRAM (TERMINATED BY 80H) 
O4AA El 1476 PUP HL 
OG4AB = ELISES35c 1477 LD DE.(PROG)  - 
1672 °° LME2: sHERE WITH HL -—> NEW PROGRAM LINE, DE -> OLD PROGRAM LINE 
OGAF 7E 16/9 LD A» (HL) 
- O6B0 . EGCO 1480 AND OCOH 
O4B2 2020 1661 JR NZ, LMES IF CON fo VARIABLES 
OGB4 1A 1452 LME21: LD A, (DE) 
O4BS 13 ee INC DE 
O6B6 BE 1484 CP (HL) 
O687 23 1435 INC HL ° 
O6B3 2002 1486 JR NZ, LME22 
O4BA 1A 1487 LD A, (DE) [ 
O6EB BE 1488 cP (HL), 
1689 LME2z: SHERE WITH (C»NZ)+ (NC»2) OR (NC»NZ) ACCORDING AS OLD PROGRAM 
1690 ae 3 LINE NO. <, = OR > NEW PROGRAM LINE NO. 
O6BC 1B 1671 DEC DE 
OSBD 2B 1492 DEC HL 
O4BE 301C 1693 JR NC, LME24 
1694 sHERE IF OLD PROGRAM LINE BEFORE NEW GONE. MOVE ON TO NEX1 OLD 
1495 ; PROGRAM LINE. 
o6c0 ES 1496 PUSH HL 
O6C1 | EB 1697 EX DE,HL. 
1698 
O6C2 DES 1699 PUSH IX 
0604 D9 1700 EXX 


CASSETTE TAPE STATEMENTS TAFE PAGE 25 
Loc ObJ CODE M STMT SOURCE STATEMENT ASM 5.9 
O45 212017 1701 Lo HL, RECLEN 
0408 ES 1702 PUSH HL 
OsC9 = BEOO 1703) Lo L, H-SELECT 
O4CB = 24FF 1704 Lo H, HOME 
o4cD ES ; 1705 PUSH ~ HL 
O6CE 210000 1706 LD HL, 0 
O46D1 ES 1707 PUSH HL. 
0402 ES 1702 PUSH HL 
o403 DP 1702 EXX 
o4D4 ~ CnhOQOO xX 1710 — CALL CALL..BANK 
0607 DDE1 1711 POP Ix 
’ 1712 
o6p9 EL 1713 POP HL ; 
O4UA 18D8 1714 JR LME21 
1715 ; ; 
O4DC CD3107. R 1714 LME24: CALL REPLCE 3NB CARRY CLEAR HERE 
O40F 18CE 1717 JR LME2 
1718 . 
'- 4719 LMESs: sHERE WITH HL -> NEW VARIABLE 
O4E1 8 7E 1720 LD A; (HL) . 
O6E2 . 4F 1721 LD C:A 
O4E3 FESO 1722 CP @0H 
O4E5 Ce 1723 RET Z s3NO) NEW VARIABLES LEFT 
O6E6 ES 1724 PUSH HL 3(SP) 2-> NEW VARIABLE 
O4E7 2A4B5C 1725 LD HL,» (VARS) 
O4EA JE 1726 LMES2: LD A, (HL) 
O4EB FESO. 1727 CP S0H 
OGED 2839 1728 JK Z+LMEG2 +VARIABLE DOESN’T EXIST ALREADY 
OGEF BY? 1729 cP c 
O6FO = 2810 1730 JR Z»LMESS $1ST BYTES AGREE 
OsF2 CS 1721 LMESS@: PUSH BC 
1732 
O4F3 DDES 1723 PUSH IX 
O4F5 DP 1724 EXX 
O6F& 212017 1725 Lo HL, RECLEN 
O6F9 ° ES 1726 PUSH HL 
O6FA = 2EGO 1727 LD L, H SELECT 
O4FC 246FF 1733 Lo H, HOME 
O6FE ES 1729 PUSH HL 
O4FF = 210000 1740 Lo HL, 0 
0702. ES. 1741 PUSH HL 
0703 «ES 1742 PUSH HL 
0704 D9 1743 EXX oe 
0705 cnoo0oo xX 1744 CALL ® CALL_BANK 
o7oe DDEL - 1745 POP * IX 
1746 
O70A . C1 1747 POP BC 
0708 EE 1748 EX DE,HL sHL 2?-> NEXT OLD VARIABLE 
o70c 8©618Dc 1749 JR LMES2 SHAVE ANOTHER Go 
1750, 
1751 LMESS: sHERE WHEN 1ST BYTES AGREE. : 
- 1/52 sHL -> GLD VARIABLE, (SP) -> NEW ONE, A = NAME 
O70E EEO 1753 AND OEOH i 
0710 =FEAD 1754 CP OQAGH 
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CASSETTE TAPE STATEMENTS 


Lac 
0712 


0714 
o715 
07146 
O717 
a718 


.O719 
‘ O71A 


071B 
O710 
O7TE 


"0720 


O721 


0723 
0724 


0726" 


0728 


» O729 


O72A 
0728 
072C 
072F 


Q731 
0733 
0734 
0737 


0738 
O73A 
0738 
O73E 
O73F 
Q741 
0743 


OB! ‘CODE M STMT 


2012 


Di 
oS 


37 
CDz107 
1880 


1755 
17534 
1737 
1758 
1759 
1740 


1761 


1762 
1743 


1764 


1745 
1764 
1767 
1768 
17469 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
17738 
1779 
1730 
1/21 
1782 
1783 
1784 
1785 
1786 
1787 
1738 
17a9 

17¢0 
1791 
1792 
1793 
1794 
1775 
1796 
17?7 
1798 
1799 
1300 
1301 
1802 
1803 


1804 - 


1805 
1306 
1807 
1303 


TAPE FAGE 26 
SOURCE STATEMENT ASM 5.9 
JR NZ» LMEG sVARIABLE FOUND 
sHERE TO CHECK REMAINING BYTES CIF NUMBER WITH LONG NAME. 
FOr DE 3DE s-> NEW VARIABLE 
PUSH DE 
PUSH HL 3(SP) => OLD VARIABLE, (SP+2) &-> NEW VARLABLE 
LMES6: INC HL 
INC DE 
LO A, (LIE) 
cP CHL) é 
JR NZ» LMESS sMISMATCH 
RLA 
JR NC» LNESS 3T0 CHECK MORE BYTES 
POP HL sHL 8-> CLD VARIABLE 
JR LMES 
LMESS: POP HL: sHL :-> OLD VARIABLE 
JR LMESS 
LME6: sHERE WHEN NEW VARIABLE MATCHES AN OLD VARIABLE 
d 3HL -> CLD VARIABLE, (SP) -—> NEW 
LD A,-1 . ; 
LME42: sJUMP HERE WITH A = SOH WHEN NEW VARIABLE DOESN“T MATCH ANY 
;: OLD UNE. 
sHL -> SOH, (SP) -> NEW VARIABLE 
POP DE ; ; 
EX DE,HL sHL §-> NEW VARIABLE, DE #-> GLU GNE (OR 80H) 
INC A 3SET Z IF AN CLD VARIABLE YO DELETE 
SCF . ; 
CALL REPLCE 
JR LMES 
REPLCE: SREPLACE OLD RECORD (PROGRAM LINE OR VARIABLE.) WITH NEW ONE. 
sHL —> MEW RECURG, 
SIF NC, THEN PROGRMA LINE: IF C THEN VARIABLE. 
SIF Z, THEN DE -> CLD RECORD TO BE DELETED. 
$1F NZ, THEN DE -> BYTE BEFORE WHICH TO INSERT NEW RECORD. 
SMOVES NEW RECORD TO T'S NEW PLACE, & DELEIES IT FROM Irs 
} ORIGINAL PLACE. 
sHL &-> BYTE THAT URIGINALLY FOLLOWED NEW RECORD (ALLOWING FOR 
3 MOVEMENT ). 
3DE :-> BYTE NOW FOLLOWING NEW RECORD IN ITS NEW PLACE. 
7SMASHES A’F?. 
JR NZsLRE4 
EX, AF. AF’ 
LD (X_PTR)»HL 
EX DE.HL 
FUSH IX : 
EXX 
Lo HL, RECLEN 
FLUSH HL 
Lo L, H SELECT 
Lo H, HOME 
PUSH HL 


6 © 


CASS 
Lac 


0744 
O747 
0743 
0749 
O74A 


074D 
O74E 
0731 
0752 
0754 


O73545 


0757 
073A 
O75B 
O7350 
o75U 
0760 


Q762 . 


0763 
0744 


“07467 


0763 


O749 
O76B 
07460 
O74F 
0770 
0772 


0774" 


o775 
0773 
0779 
O77A 
0778 
O77E 


0730 


O733 
O786 
0737 
0788 


ETTE TAPE STATEMENTS TAPE PAGE 27 

OB CODE M STMT SOURCE STATEMENT ASM 3.9 

210000 1502 LD HL, O 

ES 1210 PUSH HL 

ES 1311 PUSH HL 

cy ; 1312 EXX ; 

CDO000 1313 CALL CALL_BANK 
1214 

ne 1315 EXX 

215017 1916 Lo HL, OELREC 

ES 1817 PUSH HL : 

2E00 1318 LD L,» HOSELECT 

Z26FF 1819 LD H, HOME 

ES 1920 PUSH HL 

£10000 1821 Lo HL,» O 

ES 1S22 PUSH HL 

ES 132° PUSH HL 

09 1324 EXX 

COOOOO “1825 . CALL CALL._BANK 

ODE 1 1824 PUP IX 
1827 

Es 1823 EX DE,HL 

2ASFSC 1829 LD HL,» (X_PTR) 

03 1830 EX AF,AF* 
1331 LRE4: sHERE WITH OLD RECORD DELETED IF NECESSARY 
1832 sHL -> NEW RECORD, DE -> NEW PLACE [fO INSERT IT. 
1233 sNC/C SHOWS PROGRAM LINE/VARIABLE 

og ' 1s3 EX AF, AF’ . 

oS 1835 PLUSH DE ; 
1824 . 

DES 1937 PUSH Ix 

_ 1533 EXX 

212017 1339 Lo HL, RECLEN 

ES 1840 PUSH HL 

2E00 1541 Lu L, H SELECT 

26FF 1842 Lo H» HOME 

ES 1243 PUSH HL 

210000 1844 Lo HL, O 

ES 1345 PUSH HL 

ES 1844 PUSH HL 

Dy? 1347 EXXx 

CDOOOO 1848 CALL CALL BANK 

DDEL 1549 POP IX 
1850 # 

225F5C 155 LD ¢X_PTR);HL $5 ¢(X_FTR) 2:-> NEW RECORD 

. 1E52 : sHERE TO INSERT BC BYTES AT ((SP)). 

1sh3 3I1F PROGRAM LINE THEN WE MUST MOVE (VARS), SO WE INSERT A BYTE 
1854 3 EARLY. SINCE HIS MIGHT INVOLVE MOVING (FROG) (BUT NOTHING 
1825 3 ELSE) AS WELL, WE CAREFULLY PRESERVE (FROG) - WE CAN nO 
1854 5 THIS FUR VARIABLES TOO WITHOUT ANY DAMAGE. 
1557 $IF PROGRAM LINE THEN WE MUSTN’T MOVE (VARS), SO WE INSERT 
71558 3 EXACTLY AT ((SP)). (E_LINE) TAKES CARE OF IfSELF. 

2A535C 1529 LO HL, (PROG) 

E3 1840 EX (SP),HL SHL’ '-> NEW. PLACE 

cS 1341 PUSH BC 

o8 1862 EX AF,AF~’ 


Beet 


= 


ag i € 


CASSETIE TAPE STATEMENTS 


TAPE PAGE 28 
Loc OBJ CODE M STMT SQURCE STATEMENT ASM 5.9 
0789 331B 1863 JR C,LRES IF VARIABLE 
07SB 2B 1844 HEC HL $TQ ENSURE (VARS) GEIS MUVED 
1245 
o78C DES 1844 PUSH IX 
O78E De? 1347 EXX 
O78F 215BB12 1843 Lo HL, INSERT 
0792 «#2ES 18469 PUSH HL 
0793 2E0O 1870 LD L, H SELECT © 
0795 26FF 1871 Lo H, HOME ‘ 
0797 «~ES 1872 PUSH HL. 
0793 210000 1873 LD HL, O 
O727R ES 1874 PUSH HL 
“o770 =O 1875 PUSH HL 
O797D 86 fn? 1876 EXX 
O79E CpoOodO 1877 GALL CALL BANK 
O7AL DDEL 1878 PUP IX 
18:79 
O7AR = 2 180 INC HL 
O7A4 19817 1881 JR LRE6 ‘ 
1882 . ' 
‘ 1683 LRES: sCALL INSERT 
: 1ee4 
0706 ODDES | "1885 PUSH IX 
o7Ag Te 1884 EXX 
O7A? ZIRBI2 1887 Lo HL, INSERT 
-O7AG ES Leas PUSH HL 
Oo7AD 8 2E00 ' isey Lo L,» H SELECT 
O7AF 26FF 1870 Lo H,» HOME ° 
O7b1 ES 13871 PUSH HL 
O7B2 210000 1872 Lo HL, © 
O7B5 ES - 1893 PUSH HL 
O7B4 ES 1s94 PUSH HL. 
O7B7 Lie 1875 EXX 
O7B3  cnoo0ed 1896 CALL CALL_BANK 
O7BB DUEL 1897 PoP IX 
1893 
O7BD 23 1879 LRE6: INC HL sHL 8-> NEW PLACE 
O/BE CA! 1700 POP AC: s$8C 8= LENGTH CF NEW RECORD 
O7HF DA 1701 POP DE 
o7co 8=69EDS353a5C 861902 LO (FROG), DE 3(PROG) RESTORED TO ITS VALUE Al LRE4 
0704 EDSBSFSC 190% LD DE, (X_PTR) SUE :-> NEW RECORD 
0708 CH 1704 FUSH BC 
e7c? =o 1905 PUSH DE 
O7CA EF 1904 EX .DE.HL 
O7CB  EDBO 1907 LOIR sNEW RECURD MOVED; DE :-> BYTE AFTEK NEW PLACE 
o7co 8 6E1 1908 POF HL sHL s-> NEW RECORD IN GLD PLACE 
O7CE Ci 1709 POP BC SBC &= LENGTH OF NEW RECORD 
o7CcF 1S 1710 PUSH DE ' 
1911 
o700 DES viz PUSH IX 
o7u2 De 1913 EXX 
O70 215017 | 1914 Lo HL, DELREC . 
o70n6 ES 1915 PUSH HL. 
0707 2E00 191s 


Lo. L,» HO SELECT 


oF 8s. Be SS BF Fe Ve Be Fo Be oe Be woe Fe S&S 


CASSETIE TAPE STATEMENTS 


Loc 


O7D9 
O70B 
O7DC 
O/7DF 
O7E0 
O7E1 
O7E2 
O7ES 


O/7E7 
O7ES3 


O7E9 
O7EA 


O7EC 
O/EE 
O7EF 
O7F2 


O7F3 - 


O7FS 
O7F7 
O7FS 
O7FB 
O7FC 
O7FD 
O7FE 
OsO1 


O803 
o804 


S07 


O809 — 


O30A 
osou 
OS0E 
O310 
O812 
0313 
0816 
O817 
os1e 
0319 


o81C 


 OS1E 


0822 


26FF 1717 
es 1918 
210000 1919 
ES 1920 
ES 1921 
De 1922 
cpo000)=— X:-«1923 
DDE1 1924 
1925 
D1 1924 
ce ©): 1927 
1928 
1929 SAVE: 
1930 
1931 
ES 1932 
SEFD 1933 
1924 
DUES 1935 
DP 1936 
213012 1937 
ES 1938 
2E00 1939 
26FF 1940 
Es 1941, 
210000 1942 
a ee 1943 
ES 1944 
De 1945 
choco =X: «1944 
DDE 4 1947 
1949 
AF 1949 
11893C 1950 
1951 
DUES 1952 
De 1953 
213F07 1954 
ES 1955 
2E00 1954 
26FF 1957 
ES 1958 
210000 1959 
ES 1960 
ES 1941 
ne 1942 
CLOOCO = X:-«1943 
DDE1 1944 
1965 
FOCBOZEE 1944 
1967 
cb4208 «RR 1968 
1969 
1970 


. TAPE 
OBI CODE M STMT SOURCE STATEMENT 


PAGE 27 © ae 
ASM 5.9 - ra ee 
LU H, HOME 
PUSH HL SME ogee 
LD HL, O F , 
PUSH HL . 
PUSH = HL 
EXX 
CALL CALL_BANK ; - ee cr 
POP 1X oa 
POP DE F 
RET + 


sHERE FROM SLVM TO CONTINUE RUNNING SAVE. ‘ 
$IX -> A 17 BYTE AREA CUNTAINING THE HEADER fO BE WRITTEN, ee ee 
H HL -> 1ST BYTE OF DATA. : i 


PUSH HL eae eee 
-LD As HID_K Roe te 
PUSH IX 
EXX 
LD HL, SELECT 
PLISH HL. — ee 
LD L» H-SELECT ee ee oe ee RS re 
LD =| Hy HOME am eo = nM 
PUSH HL 
Lo HL, 0 
PLUSH HL. i : 
PUSH HL. 
EXX ies oe r . 
CALL CALL_BANK E Seek Paes a: 
POP IX “2 . 
- XOR A aa big 
LD DE, SEPRMT $SEPRNT IN THE HOME BANK ae os 
PUSH IX 
EXx 
LD HL» PUIMES 
PUSH HL 
LD L, H SELECT 
LD H» HOME 
PUSH = HL 
Lo HL, 0 
PUSH® HL 
PUSH HL 
EXX 
CALL CALL_BANK 
POP IX 


SET CLHS, (IY-Y+TVFLAG) 


CALL  AKEY 


5 ### ADDITIONAL 


Sp &F& oF & @ FF. Fs fe Fe &@e Fe &e Fe se se Fe 8b. FF Fe So 


CASSETTE TAPE STATEMENTS 
OB! CODE M STMT SOURCE STAIEMENT 


Loc 


oe25 
O8zZ/7 
082A 
O82B 
O82 

O230 
O8S2 
0833 
0835 
OBB 
O83SB 
0830 


OSSF - 


O842 
0843 
o844 
0845 
0848 
0849 
o84A 
Of4B 
o84o 
O84E 
o8S0 


O852 
' 0854 - 


O86 
OsSSa 
Oss9 
O8SC 
o8sp 
OSSF 


.O841 
O862. 


Oss 
O8464 
0847 
02463 
O246B 


ogén 
O346E 
OS6F 


0870 


DDES 
111100 
AF 
CDOOOO 
DDE : 
0632 
7% 
1OFD 
DESEO 
DUSGOC 
3EFF 
DDE4 
C30000 


DUES 
ui? 
21A908 
i 4 


ES 
210000 


R 


R 


1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
LPRo 
1981 
1vS82 
1783 
1984 
19e5 
1PaS 
1937 
1933 
Iva? 
1970 
IP 
1992 
1993 
1994 
1995 
1996 
1997 
1993 
1999 
2000 


2001 . 


2002 
2003 
2004 
2005 
2008 
2007 
2008 
200? 
2010 
2011 
2012 
2013 
2014 
2015 
2018 
ZO17 
2013 
2019 
2020 
2021 
2022 
2023 
2024 


LSES: 


AKEY? 
AKEY1: 


AKEY28 


TAPE 


PAGE 30 
ASM 3.9 
3 HH 
PUSH IX 
LO vE,17 
XOR A 3A &= ZERO CODE BYTE FOR HEAUER BLOCK 
CALL W TAFE JHEADER 
POP IX 
LD B,S0 sNOW WAIT ABOUT 1S (SO FRAMES). 
HALT 
DJINZ LSES 


‘LO E, (IX+HDLEN) 
LO D, (IX+HDLEN+1 ) 


LO A» OFFH 
POP IX 
JP WoTAPE 


3 at 


sMAKE A GENERAL SCAN OF THE KEYBUARD 41.£. WAIT FOR A KEY-PRESS 


PUSH AF 
PUSH BC 
PUSH DE 

LD BC, 40000 
DEC BC 

LD A.C 

OR B 

JR NZ» AKEY1 
xOR A 

IN A, (OFEH) 


AND 1FH 

CF 1FH 

JR Z,AKEY2 
» PUSH IX 

EXX 

LO _ HL, 

PUSH HL 

Li L, 

Lo H, 

PUSH HL 

LD , HL» 

PUSH HL 

PLUSH HL 

EXX 

CALL CAL 

PUP IX 

FOP DE 

PoP BC 

POP AF 

RET 


5FOR DATA BLOCK 


*#ADDITIONAL 


sWAIT A DELAY PERIOD 


CLLHS 


H SELECT 
HOME 


L_BANK 


> 


CASSETTE TAPE STATEMENTS 


Loe 


os7i 
OB72 
ag875 
O876 
os7e 
087A 


0878 


037C 


OR! CODE M STMT SQURCE STATEMENT | 


Ly 
21ED1B 


ChoO000 


x 


2025 
20264 
2027 
2028 
2029 
2020 
2031 
2032 
2033 
2034 
2035 
2036 


TAFE 


GOTO_SYNERR 


PAGE 31 
ASM 5.9 

EXX 

HL, SYNERR 

HL 

Ly HSELECT 

H, HOME ’ 

HL 

GOTO_BANK 


INLTIALISATION 


Loc. 


OO00 


~ 0003 


0006 


ooo? 
ooac 
QQO0F 
0010 
ool 
oo13 
O01S 
OO1G 
0019 
Oo1aA 
OO1B 
Oo1c 
oo1n 
OOLE 
OOLF 
QO2z1 
O022 
oo23 
0024 


Oo2s 


o0z8 
O02B 
oo02zC 
ao2n 
QO02F 
OoOs1 
aqos4 


0037 
0038 


INIT ; PAGE 1 
OBJ CODE M STMT SOURCE STATEMENT : ASM 5.9 
1 #HEAL INITIALISATION 
419 #LIsST ON 
20 
21 GOTOLBANE EGU 4872H 
422 CALL_BANK EG! 6300H 
423 XFER_BYTES EQU 4722 
424 WRITELESUREG EGU 635CH 
425 READUBS.REG Eau 43AD0H 
426 E'S_MAX BANK EG) 6215H 
427 SCTLOC EGU SEEAH SSYSCON LOCATION IS SFFFH — SYSCON SIZE 
423 TEMP..REC EQU SFE9VH SEXTRA SYSCUN ENTRY POINTING TO BANK # ENTRY 
429 INTPRI Eu SFEBH 
430 : 
431 GLOBAL EXINIT, BLOSCT, RESSCT 
432 AROS EQ 1SC6H 
433 LED1i8 EQU OEZFH 
434 
435 EXINITs - : 
ZLEASE 426 LD HL, SCTLOC 
22RC5SC 427 LO (SYSCON),. HL 
‘coon! 433 CALL BLOSCT 
439 
440 CHKLRS: 
ZAKCSC 441 : LO HL,»(SYSCON) sCHECK FOR PRESENCE OF LROS 
110300 442 LO fE.8 ‘ ; E 
19 443 ADD HL, DE 
7E 444 LO A, (CHL) 
FEQ1 443 cr 1 . 4 , 
2013 444 JR NZ, CHKAROS SIF NO LROS THEN CHECK FOR AROS . 
ES. 447 PUSH HL SINITIALIZE SYSTEM VARS WITHOUT ALLOCATING ROOM FOR 
CoSssS00 443 -CALL NOVARS 3MACHINE LANGUAGE VARS 
El 449 POP HL : 
23 450 ING HL 5 PASS CONTROL TO LROS 
SE 451 LE E» (HL) . 
_23 452 INC HL 
a4 43 LD. 0. (HL) 
0S 454 FUSH DE 
a400 455 LO BO 
23 4S& INC HL ‘ ; + 
4E 457 Lot, (HL) 3GET CHUNK SPEC : : 
cs 433 PUSH BC 
FE 459 EI : 
CO72465 460 CALL GOTO. BANK 
441 CHKAROS: = ; 
ZSABCSC 4L2 LD HL,(SYSCON) 4sCHECK FOR PRESENCE OF AROS — 
22 4463 INC HL . : 
7E 464 LO A, (HL) 
FEOQZ 465 CF 2 ; 
2306 4&4 JRO Z. CHLANG 
COoS300 457 CALL NOVARS : 
C3B300 443 JP BOOTDEV GNO LROS OR ARGS SO CONTINUE NORMAL 
469 CHLANG: : SWHAT LANGUAGE IS AROS? 
2B 470 ‘ DEC HL $A &§= LANGUAGE 
JE 471 LO A» (CHL) 


INITIALISATION INIT PAGE 2 


LOC OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
0039 FEOL 472 cP 1 #CHECK FOR BASIC ANU MACHINE LANGUAGE 
003B 2832 473 JR Z,LANGOK 
o03D FEO2 474 cr 2 SCHECK MACHINE LANGUAGE ONLY 
O0SF 2042 475 JR NZ,ERRS sNO LRUS FOR LANGUAGE 
476 
477 sMACHINE LANGUAGE START 
0041 110600 478 LO DE, #GET NUMBER OF BYIES CF MACHINE LANG VARS FROM SYSCON y 3.4, . >. 
0044 19 479 ADD HL, DE 
0045 4E aso LD C»(HL) 
0046 23 431 INC HL 
0047 & 482 LD B, (HL) 
0043 «214068 43 LD HL, DRIVES 
‘0048 09 404 AUD HL, BC ' 
oo4c EB 4g EX De+HL se adhe 
oo4D = 214068 48% LO HL, DRIVES 
oo50 — ELEO 487 LDIR + MOVE) CHANN a ae 
oos2 cpscod R 428 CALL CONT ~ pole 
0055  2ABCSC 429 "LD HL, (SYSCON) 
OOS 110500 420 LD DES $CHECK IF AUTOSTART 
oOSB 19 av ADD HL, DE 
oosc ° TE 492 LD A» (HL) 
ooSD  FEOO 493 cP O 
OOSF 2952 . 424 JR Z,BOOTDEV ;JUMP IF NOT TO BE AUTOSTARTEL 
0061 2 495 DEC HL / 
0062  4E 496 LD C, (HL) / $GET CHUNK SPEC 
003 2B 497 DEC HL 
0064 56 ' 493 LO D,¢(HL) = (\"- $GET START ADUR 
0065 2B 499 DEC HL 
0066 SE S00 LD E, (HL) 
0067 OS. SO4 . PUSH DE 
0068 0400 S02 - LD BLO iBANK O 
006A CS 503 PUSH BC 
004B FE 504 EI 
oo6C = CD7265 505 CALL GOTO_BANK 
506 
507 LANGOKs _$PASS CONTROL TO AROS ROUTINE 
OOSF cHeso0 R S08 CALL NUVARS 
0072 3ESO 509 LD A, 80H 
0074 = 82C65C 510 LD (ARSFLG).A 
0077 210418 S11 LD HL,AROS 
007A ES Siz PUSH HL 
007K O6FF 513 LD B, 255 - 
0O7D = GEO 514 LD 10 
OO7F C5 515 PUSH BC 
0080) CD7265 514 CALL GOTO_BANK 
517 
518 
519 oe ‘ 
o0s3 OCF 520 ERRS: RST ERRUR 
0084 1B 521° DEFER “S“-“A+9 
S22 5 He ‘ ee, ea 
; 523 NOVARS: ne. gy, An Em Vor. a. Soke ‘ 
oosS 2140468 $24 LD HL, DRIVES 4 as eae fl aaa, nowt asian 


0038 111500 S25 LD DE, 21 


« 


a) : * 


INITIALISATIOCN INIT 
Loc OBJ COLE M STMT SOURCE STATEMENT 
oogB 19 S26 ADD HL, LE 
$27 CONT 
oose | 22575¢ 523 LO (DATADD) »HL 
OOSF 23 S52? IN HE 
ooF7O 22525C 530 LO (PROG).HL 
0073 224B5C S31 LD (VARS)»HL 
0094 3480 532 LD (HL) »S0H 
0098 23 532 ING HL 
OOP7 B2z595C 534 LD (ELINE)»HL 
oorc 3600 535 LO CHL)» NL 
OOPE 22 526 INC HL 
OO3F . 34680 537 LOY (HL) »S0H 
‘QOAL 23 533 INC HL 
OOAZ 22615C 5239 LD (WORKSP)»HL 
QOAE 224350 540 LD (STKBOT)» HL 
OOAS = 22455C 541 LO (STKEND)»HL 
OOAB AF 842 XOR A 
ooOAC =. B2C4SC S43 LL (ARSFLG) +A 
OOAF 32C25C S44 LD (VIOMOD) +A 
OOR2 C9 545 RET oo 
; ae 546 A 
547 go 
548 2 
549 BOOTUEV: 
OOBS 146FF m0 LD 0,255 
 OOBS  1E8 5S LO E,128 
QOBR7 212F0E S52 LO HL, LEDS 
OOBA ES 553 PUSH HL 
OORB = DS S54 PUSH DE 
OOBC  ZABCSC S55 | LO HL, (SYSCON) 
OORF = 110000 Sa LO DE,12 
oOLz2 19 557 ADD HL, DE 
00C3 = a400 S58 LD BO 
S59 PRES?: 
oocs 7E 540 LO A» (HL) 
ance FESO 541 CF sOH 
oore B2Es2 542 JR Z, BOOTUP 
OOCA — FEOO . S63 cP Oo 
oocc 2828 S44 JR Z+CHENXT 
OOCE 23 565 INC HL 
OOCF 44 546 LO B, (HL) 
oond 111400 547 LD DE,14H 
Ons 5s ADD HL, DE 
oon4 549 LD Ay (HL) 
Ooms 570 RROA 
OOD Caso S71 Cdk C, BOOTABLE 
oons 23 572 —We—-HE-----_ 
COU? 23 573 INC HL ' 
OODA = 23 574 ING HL 
OOLE 18Ee $75: JR PRES? 
576 BOOTABLE: 
conn 2 577 ING HL 
OODE = 7E 5738 LD As (HL) 
OOnF Di 579 PUP DE 


FAGE 3 
ASM 5.9 
21g po ont of AgAdem wer vil of Barge ALM 
; 2 | nt 


§ BOOT HIGHEST PRIORITY DEVICE 


5 SAVE TS2000 PRIORITY 


4 START OF BANK RECORDS ; eae - 


SCHECK FOR END OF TABLE 
$CHECK PRESENCE FLAG 
3GET BANK NUMBER 
SCHECK. iF BOOTABLE 


pe mot bootel-l j Aocke ae ALCO 4 


sCHECK PRIORITY AGAINST CUKRENT HIGH 


2 


INITIALISATION 


INIT , PAGE 4 


oO 


Loc OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
QOEO BE 5e0 cP E er 
OOEL 3805 5e1 JR C,NEWHI Kise Wee 
OOS = DS 5e2 PUSH DE a 
OOE4 23 S83 ING HL 
OOES = 23 54 INC HL a ee 
OOES 18DD Ses JR PRES? sG0 ON TO NEXT BANK RECURD 
S86 NEWHIs _ 
OOES iL 587 _ POP pe STRASH OLD BOOT ADUR 
QOEP 110500 S89 LE te. 4 
OoOEc EnsS2 | S29 —SECCHL, VE 
OOEE ES 370 PUSH HL SSAVE NEW BOOT ADDR 4bak& 
OOEF  4F 5o4 Lo c.A Ao - 
OOFO C5 ie S92 - PUSH BC $SAVE BANK NUMBER ANU PRIORITY 
OOF L . ~£ 592 c oe = 
OFZ +4303 594 inc peg 4° Es 
OOFR 19 S75 mM HL» De Pre ; / 
OOF4 = 180F 596 JR PRES? D FBAK wagt ft. 
S97  CHKNXTs 
OOFS: 111800 s7o LU DE, 24 
OOF? = 19 S99 ADD HL» DE 
OOFA = 1809 600 IK PRES? 
601 BOWTUP: in 
OOFc C4 6020 POP BC on benk wa te be booth 
._ OOF = 78 603 LO A.B ; : 
OOFE FEFF 604 ce 255 s1S IT HOME BANK es 
0100 = 2804 405 JR Z,HB ss Se ae oe J e 
0102 ~OESS 606 LO c,83 ) bn, at WS Te 424 okt 4, : ESE 
0104 §=1802 407 JR NHB . Pee f eh Ge gy 
0106  OE00 608. Hi: LD C0. » art HS & detect entire trang 
609 NHEs fA: . ‘ ; 
010s CS 610 PUSH Be Bho SS ecg ee. 
0109 «FB 611° EI Por f AD DEVCHO Pusp DE 
- 010A = CD72465 612 CALL GOTOLBANK $HL IS ALREADY ON STACK’ 
413 
14 
415 tae 
414 BLDSCT: 
o100 ZaABCSC 617 LD HL, (SYSCON) 
0110 AF 618 XOR A 
O111 32BESC 61? LI (MAX BANK) 2A 
0114 321563 620. LO (BS_MAX_BANK),A 
621 CHLROS: . sCHECK FOR LROS 
0117 110800 G22 LO DE, s é 
O11A° 19 623 ADD HL, DE sHL POINTS AT LROS ENTRY OF SYSCON 
O11B  1EFF 624 LOE, 255 oo y ‘ i ae 
O11D = 1400 25 LU D0 . | MER overhead Aeatir fron doch CanR th Siicoupeype 
O11F ODS &24 PUSH DE os ; ; = 
O120 110100 &27 LO DE, 4 
O122 05 &28 PUSH DE 
o124 «ES 429 PUSH HL 
O12Z5 110400 | &30 LO DE,4 
0123 DS 631 PUSH DE 
0129 110100 &22 LO OE, 4 
oie, 5 © 623 PUSH DE 


_ INITIALISAION 
OB! CODE M STMT SOURCE STATEMENT 


Loc 
O12D = C2267 

- 0120 7E 
0131 FEOL 
OQ1S3 2E22 
0135 3400 

' 0137 1EFF 
O139 1400 
O13B «DS 
oO13C 110080 
O13F DS 
0140 «2ABCSC 
0143) «ES 
0144 =110800 
0147 OS 
o148 110100 
O14b DS 
o14¢c C2267 
OL4F 8624 
Q150- 7E 
O151 FEO? 
0153 2802 
O155 32400 
O157 2ABCyC 
O1SA 110000 
O15 619 
O1SE 14cC0 
0160 1£00 
0162 cosces 
01465 COEAO2 
0168 D2kvuol 
O16B 47 
0160 CEFS 
O16E 70 
O16F CBB 
O171 223 
0172 OEFE 
0174 «CS 
0175 110000 
O178 05 
0177 ~=110000 
“O17C) oS 
O17D §=110100 
01s0 06S 
0181 «DS 
0182 


CD2267 


INIT 


634 

635 

G34 

437 

638 

637. 

640 60.04 


659 GO_ON: 


666 POLLEB: 


CALL XFERUBYTES 


3 CHECK 
LD A, (HL) 
cP 1 31S IT 
WR Z,G0L0n4 sIF So 
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ASM 5.9 
CARTRIDGE TYPE 


LROS? 
GO BUILD REST OF TABLE 


LD (HL),O po EYENSURE CARTRIDGE TYPE TO BE -O 
.  $CHECK FUR ARGS 


Lo o.0 
PUSH DE 
LD LIE, S000H 
PUSH DE 


‘LD HL, (SYSCON) 


FUSH HL 
LD DE,s 
FUSH DE 
LO DE,4 
FUSH DE 
CALL XFER_BYTES 


INC HL SCHECK’ CARTRIDGE TYPE 


LD A» (HL) 


CP 2 $18 IT ARGS? 
JR Z+GOL0N  “{ae3FILL IN REST OF TABLE 
LD (HL),0 — G/oe'$MARK AROS NOT PRESENT 


sFILL IN EXPANSION BANK PARTS 


LD HL, (SYSCON) 


br Zs SCYSCOnN ee 


LO DE,13 . 

ADD HL, DE sHL POINTS TO BANK # OF FIRST EXP BANK RECORD 
LD D,OCOH SWRITE RESET CMD TO CND REG TO SfART DAISY CHAIN 
LD E,0 


CALL WRITE_BS_REG 


1 Cort [4 
CALL ASSIGN ‘4 


a 


e 


JP NC» INDUN sJUMP IF NO MORE BANKS 
LD BLA $B GETS BANK # / Oe Ea ee 
SET 7,.B ATP RA COW teh, wf Le Le 
LD (HL),B a clad HL .POINTS TO BANK # ENTRY, NEXT 
RES 7.8 
INC HL FS¥ECON RECORU AND SAVE BANK # THERE 
3 CHECK FOR RAM 

“ SWRITE SOMETHING, VIA XFER BYTES 
Lo 2,254 / AL ‘ 
PUSH BC ) §$XFER FROM EXTENTION TO EXPANSION 
LO DE,EXINIT ; ; 
PUSH DE 
LO DE,O 
PUSH Dk 3XFER FROM EXINIT TO O000 
LD DE,1 ; 
PUSH DE §XFER ONE BYIE 
PUSH DE sDLRECTIGN 


CALL XFER BYTES 


SREAD BACK 


INLTIALISATION 


Loc 


o1e85 
0187 
O1e3 
OLS? 
O1ec 
0130 
O18E 
Owl 
O192 
O1?S 
O196 


OLS 
O19A 
O19D 
OLPE 


O1LAL 
O1A3 
O1A4 
O1A7 
O1A3 
O1AB 


OLAC. 


OLAF 
O10 
O1B1 


O1B4 
O1B6 
O187 
O1BS 
O1BB 
O1Be 
OLED 
o1cd 
oct 
O1c4 
Os 


O1ns 
a1ic? 
oO1c’e 
o1icn 
o1no 
Oo1p.l 
o1n2 
O1D5 
O10s 
Olu? 


O1DB 
o1DC 
O1DE 


INIT 


OBJ CONE M STMT SGURCE STATEMENT 


LEFF 68s 
37 6g 
pS 620 
110000 691 
Ds 692 
ES 693 
111400 694 
DS 695 
110100 696 
DS 497 
CD2267 693 
V9 
56 700 
3A0000 R701 
BA 702 
C2DB01 R 703 
704 
OEFE 705 
cs 706 
114501 R 707 
DS 708 
110000 709 
DS 710 
110100 - 711 
DS en FAQ 
DS 713 
COZ267 , 714 
715 
1EFF 716 
57 717 
DS 713 
110000 719 
LS 720 
ES 721 
111600 22 
DS 723 
110100 724 
DS 725 

CD2267 726° 
I27 
56 729 
3A0000 §=R 729 
BA 730 
C20B01 R 721 
2B - 732 
2b 733 
COF401 R 7234 
111500 735 
19 7:36 
1808 737 
738 
7A 39 
EGF 740 


LOD E,255 
LO v, A 
PUSH DE 
LO fE,0 
FUSH DE 
PUSH HL 
LO DE,22 
PUSH DE 
LO DE,1 
FUSH DE 
CALL XFER_BYTES 


LOD, (HL) 

LO A» (EXINIT) 
cp Oo 
JP'NZ,»CFIR 


Lo c,254 

FUSH BC 

LO DE.FPOLLER 
PUSH DE 

LO DE,O 

PUSH DE 

LO DE, 

PUSH DE 

PUSH DE 

CALL XFERBYTES 


LD E,255 
LOD DLA 
FUSH DE 
‘LU DEO 
FUSH DE 
PUSH HL 
° LD ve, 22 
PUSH DE 
Lo DE.1 
PUSH DE 
CALL XFER_BYTES 


LD Ds CHL 
LD ACERINIT)( PoLLeS 
cP D 


JP NZ,CFIR 
DEC HL 
DEC HL 
CALL NEWRAM. 
LO DE, 21 
AUD HL» DE- 
~ JR NXTEB 
CFIR: 
LO A.D 
AND 110111118 
LU CHLDA 
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ASM 5.9 


iFILL IN SYSCON RECORD VIA XFER_BYTES 
1A = MAX.BANK 


sCHECK TO SEE IF REFN BACK WHAT WROTE 


s$IF NOT GO SEE IF IF INITIALI ZABLE 


$TEST AGAIN IN CASE OF FLUKE 


3REAT BACK 


sCHECK TO SEE IF READ BACK WHAT WROTE 


31F NOT GO SEE IF IF INITIALIZABLE 
Age, he hank 1 RAY 


360 fO NEXT BANK 


* aialee Hee ag 2 A glyt LA Cade 


vi ° . é ve 


; . all 
INITIALISATION INIT PAGE 7 po, Se 
Loc 6B COVE M STMT SOURCE STATEMENT ASM 5.9 of: Pn 


O1DF = 28 742 DEC HL gr Brie. ae lite: ae? eee 


O1EO CcDss0e3 R 743 CALL CHIR + cath chevretg et See n! aee S 
744 

O1E3 14600 745 NXTEB! LD D,OCOH WRITE STEF CMD TO ADVANCE DAISY CHAIN 

O1ES = 1E01 746 LOE»! , . 

O1E7  cCDSC43 . 747 CALL WRITE_BS_REG 

O1EA C36501 R 748 JP POLLEB eet date ued Ub tg ha chet a 
749 INDUNS 3NOQ MORE EXPANSION BANKS : ee 8 oS ORE Sato ess 

O1E0 2B 750 DEC HL 

Q1ER 3430 751 . LD (HL), 0H 3MARK ENL OF SYSCON TABLE IN PRES FLAG OF NEXT RECORD 
752 

O1FO ©D1404 R 753 CALL RENUM BANKS : r 

O1F3 C9 754 RET 
755 vd 

. ; 756 NEWRAM: 7 AF YR Je 

O1F4 23402 757 LD (HL) »2 f-EF_S0_INDIGATE-SUCH-IN- PRESENCE FLag az RA 1 ; 

O1F6 CS : 753 . PUSH BC 3XFER INTERRUPT FIELOER TO RAM BANK 

O1F7 113800 759 LO DE, 38H 

O1FA 0S 760 PUSH DE ; 

O1FB | OLS G4 PUSH DE ‘ 3PUT AT 38H 

O1FC 111000 762 LD DE, 16 . $16 BYTES LONG 

O1FF 6 oS 763 PUSH DE 

o200- 110100 764 LO De, 1 

0203 DS 765 PUSH DE ; 

0204 CD2267 7&6 CALL’ XFER_BYTES 

0207 23 767 INC HL 

o208 23 ‘ 768 INC HL ; ta te Hiih 

O20) 7E 769 LD A, (HL) ean aie rth tpec oF EFS iain | 

020A  CBC7 770 SET OLA ; ;MARK CHUNK © AS ACTIVE F 

oz0C 77 771 LD (HL).A . 
772 ; sFINU GUT WHAT CHUNKS ARE RAM : 
773 3AND PUT IN CHUNK SPEC ENTRY 

a20D 110000 774 - LO DEO , 

0210 3EO1 775 LO As1 3A IS CHUNK TO BE TESTED 
776 CHUNK_IEST: 

0212 O8 777 EX AF, AF’ SAVE A 

0213 «ES 778 PUSH HL ‘ 

0214 EB 77? EX DE»HL an 

O215 110020 , 8 LO DE, 2000H : : 

o2z18 19 7814 ALD HL, DE 

o219 EB  7e2 EX DE.HL* 3$GET ADDR OF NEXT CHUNK IN LE 

O21A El 7383 POP HL 4 

O2Z1B O4FE 784 LO 8,254 3WRITE A BYTE TO LOCATION DE IN BANK MAX_BANIK ° “: : ee 

O21D ‘3ABESC _ 735 LO As (MAX BANK) ; ey 

ae AF TE LU cA 4 RE cakere 

O22 cs 787 PUSH 8c : : : 

0222 010000 R788 LO BC,EXINIT ' 

0225 CS 7389 : PUSH BIC 

oz on Ds 790 PUSH DE 

0227 010100 7A LO HC, 1 

022A «C5 792 PUSH BC 

o22B OCS 79S PUSH BC 

ozzt CD2267 794 CALL XFER_BYTES 

795 


+ 


INITIALISATION 


Loc 


O22F 
0232 
O233 
0235 
OZ36 
0237 
O233 
O239 
o23C 
O230 
O23E 


0241 


0242 
0243 
02446 
0247 


o249 


O24B . 


O24E 
O24F 
0250 
O253 
o2s4 


O255 


o258 
o259 
O25 


O23 
2460 
0261 
02463 


264° 


0265 
O266 
0267 
2680 
OZ4B 
O26C 


O26F 
0270 
O271 
274 
0275 


O277 
0273 
0279 
02/8 
027uU 


INIT 


OBJ CODE M STMT SGURCE STATEMENT 


SABESC 


O10100 
cs 
cs 
CN2267 


4& 

2B 
3A0000 
BS 
2065 


O6FE 
SABESC 
aE 
cs 
016501 
cs 
us 
01010Q 
cs 
cs 
C2247 


SABESC 


ES 
010100 
CS 
cs. 
CD2267 


BS 
2037 


N 


R 


798 
7P7 
793 
7? 
800 
S01 
S02 
S03 
804 
S05 
BOG 
807 
S03 
809 
810 


Hots OI og Oo oo 


WW hie oS 


3G 


TOO OO Co OS oo & 


LD A» (MAX BANK) 
LO BLA 

LO c,0 

PUSH BC 

PUSH DE 

INC HL 

PUSH HL 

LD BC,1 

PUSH BC 

PUSH EC 

CALL XFEK_LBYTES 


LD By (HL) 
DEC HL 
LD A, (EXINIT) 
cP B 

JK NZ, MARKO 


LD B,254 : 
LD As (MAX_BANK) 
LD CA 

PUSH BC 

LO 8C,POLLEB 
PUSH BC 

PUSH DE 

LD BC» 1 

PUSH BC 

PUSH BO 
CALL XFER_EYTES 


LD A, (MAX_BANK) 
LO BLA 
Lo c,0 
PUSH BC 
PUSH DE 
INC HL 
PUSH HL 
LD BC,1 
PUSH BC 
FUSH BC 
CALL XFER_BYTES 
LOD By (HL) 
DEC HL 
LD A, (POLLEB) 
B 


IR NZ,MARKO 


JR NZ»STEST2 
SET 1.B 


PAGE 8 ee 
ASM 5.9 eee 


SREAD IT BACK 


sIS IT SAME AS WAS WRITTEN? 


t nat 
‘> $THIS CHUNK IS NO? RAM 


SSS TEST AGAIN. 
sWRITE A BYTE (0 LOCATION DE IN BANK MAX BANK 


sREAD- I) BACK 


t ‘ sik bog A eed iow 


ct rT) Gath 


31S IT SAME AS WAS WRITTEN? 


t sv 
‘SP THIS CHUNK 1S NOT RAM 


So 
SMARK CHUNK SPEC 22 2 41 
31S THIS CHUNK 1? 


rf 


IN(T 
SOURCE STATEMENT 


STEST2: 
STEST3: 
STEST4: 
STESTS: 
STEST4: 
ae 
SNXTCH: 


MARKO: 


RTEST2: 
RTEST3: 
RTEST4: 
RIESTS: 
RTEST&= 


RTEST7= 
RNXTCHs 


INITIALISATICN 

Loc OBJ COVE M STMT 
O27F 182A S50 
O231 FEO2 S51 
O223 2004 S52 
O285 CBiO 853 
OZ87 1322 . S54 
O2E9 FEO3 825 
OZR 2004 S56 
ozsD CBDS » 857 
OLE 1S1A . 253 
O27 1 FEO4 Sho 
0293 2004 , 860 
0295 CBEO 841 
Q297 1812 B42 
O29 FEOS B43 
Q29B 2004 S44 
O29D CBES S45 
O27F 120A B44 
O2A1 FEOS 847 
O2ZAR° 2004 843 
O2A5 CBFO . a4? 
O2A7 1802 870 
OZAY CREFS “871 
872 

O2AB 79 873 
G2ZAC 1835 $74 
: $75 
OZAE os ' 874 
O2AF 46 377 
O2ZBO FEOL 873 
OZB2 2004 B79 
O2ZB4 CESS BO 
Q2k6 132A S210 
»  O2BS FEO2 SoZ 

. OSBA — 2004 bard 
O2BC CBO So4 
O2BE 1S22 S35 
o2C0 FEO3 BS4 
' O202 2004 S37 
O24 CRIS 832 
O204 1S1A es? 
O208 FEO4 S70 
O2CA 2004 S71 
“O20C) 6 CRAG eyv2 
ace 1512 SPS 
o2na FEOS a4 
O22 2004 ! S95 
o2n4 CBAS a7 
O2L6 180A v7 
o203 FEQ4 S78 
O2DA 2004 By? 
o20nc CREO | 900 
O2DE 12802 “901 
OZEO CBBS 902 
303 


JR SNXTCH 

CP 2 
JR NZ,STESS3 
SET 2.H : 
JR SNXTCH 
cr 3 
JR NZ,STEST4 


‘SET 3,8 


UR SNXTCH 
cP 4 
JR NZ, STESTS 


‘SET 4,B 


JR SNXTCH 
CPS 

JR NZ,STESTS 
SET 5,B 

JR SNXTCH 

CP 6 

HR NZ»STEST7 
SET 6.B 

JR SNXTCH 
SET 7,B 


LD (HL),B 
JR NXTCHUNK 


EX AF,AF’ 

LO B, (HL) 

CP 1 

JR NZ,RTEST2 
RES 1,B 

JR RNXTCH 

CP 2 

JR NZ, RTESTS 
RES 2.B 

JR RNXTCH 

cP 3 

JR NZ, RTEST4 
RES 2.8 

JR RNXTCH 

CP 4 

JR NZ,RIESTS 
RES 4,8 

JR RNXTCH 

cP 5 

JK NZ,RTESTS 
RES 5,8 

JR RNXTCH 

cP é 

JR NZ, RTEST7 
RES 6,8 . : 
wR RNXTCH 
RES 7,B 
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ASM 5.9 
IS THIS CHUNK 2? 
sIS THIS CHUNK 37 
31S THIS CHUNK 4? 
31S THIS CHUNK 5? 


$1S THIS CHUNK 6? 


3IT MUST BE CHUNK 7 


ponerk hunk ad MOT PRA | 


sIS THIS CHUNK 1 
313 THIS CHUNK 2 


sIS THIS CHUNK 3 


“$1S THIS CHUNK 4 


rd wd ' he sl ba thas 


sIS THIS CHUNK 5 


a f] boon: 1 Qt, stebe 
31S THIS CHUNK 6 


ti 


SMLEST BE CHUNK 7 


% 
%. 


INITIALISATION INIT 
“Lac OBJ CODE M STMT SUURCE STATEMENT 
O2E2 70 904 LD (HL),B 
FOS NXTCHUNK: 
OZE3 3c 906 INC A 
O2E4 FEOS 907 CP 8 
OOZES C21202 203 JF NZ» CHUNK TEST 
OZE9 cy 20D RET 
710 
11 ASSIGN: 
OZEA SABESC P12 LD A» (MAX_BANK) 
O2ZED 3c 913 INC A 
OZEE SZRESC 914 LD (MAX_BANK),A 
O2F 1 321563 915 LO (BS_MAX_BANK),A 
2F 4 1440 91S LO DO, OAOH 
O2F4& SF 917 LO ELA 
O2ZF7 COSC6S 918 CALL WRITE_BS_REG 
O2FA 1680 919 LD D,080H 
O2FC SF P20 LO ELA 
O2FOD CD5C63 921 CALL WRITE_BS_REG 
Q300 1640 922 LO D,40H 
0302 1E00 923 LD E.0 
304 CUSCS&3 924 CALL WRITE_BS_REG 
O307 FS 925 PLUSH AF 
O308 SAQOAO 924 LD A» (QAQQ0H) 
O30B° 08 P27 EX AF,AF’ 
O30 3E04 923 LD A.4 
O30E SZ200A0 P29 LDD (QAQ00H).A 
O311 14A0 9:30 LOD, OAOH 
O313 1ECO . 931 LD E, OCOH 
O315 CDAD43 932 CALL READ_BS_REG 
O218 CBS53 933 BIT 2,E 
O31A 2007 Pa4 JR NZ, DUN 
O31C os 935 EX AF,AF” 
O31D 3S200A0 92 LD (0AQ00H),A 
O220 Fl . 937 - POP AF 
O321 37 yo SCF 
O322 Cc? eae? RET 
740 DUNS 
O323 ars} P4l EX AF.,AF? 
0324 3Z00A0 v42 LD (OAQO0OH),A 
O327 Fil 943 FOP AF 
0323 cc) 944 DEC A 
O329 S2BESC 945 LO) (MAX_BANK);A 
O32C 321563 246 LD (BS_MAX_BANK),A 
O32 1400 P47 LD D,0COH 
O331 1E04 743 LD E:4 
0333 CDSC43 P49 CALL WRITE_BS_REG 
0336 A7 950 AND A 
0337 cy 951 RET 
952 
953 CHIR: 
0323 2B 954 DEC HL 
O33? 3401 93S LD ¢HL),1 
033B 111500 936 LD DE,21 
O33E 957 


19 


ADD HL, DE 


PAGE 10 
ASM 5.9 


sJUMP IF MORE CHUNKS TO TES) 
SELSE RETURN 


sASSIGN BANK NUMBER TO CURRENT BANK IN DAISY CHAIN Spot 
Wry 


SINCRENENT MAX_BANK AND BS_MAXBANK 


SASSIGNED BANK NUMBER : 
3BNA REGISTER 
sHS REGISTER 


3SAVE BANK # 


+SAVE WHATEVER IS AT AQQOH oo : 
-SWRITE BIT 2 SET [0 AQOOH 


sREAD STATUS ’ 


sRESTORE AQOOH 
sRESTORE BANK # 


sRESTORE AQOOH 
SRESTORE BANK # 


SSET | MAX_BANK ANU BS_MAX BANK TO PROPER VALUE 
SWRITE END INIT MODE 


_ PR 
$ CHECK INITIALIZATION ROUTINE 


3 MARK PRESENCE FLAG AS INTELLIGENT DEVICE’ 
SCHECK IF DEVICE HAS INITIALIZATION RUUTINE 


an 
Cahyy 


iow A 
Ao Loo! ned er 


7 ng fg Sihe att 
4 


2 


INI TIALISATIUN INIT PAGE 11 
Loc = OB CODE M STMT SOURCE STATEMENT ASM 5.9 
: : f n bk bay 
O23F 7E 75S LD A, (HL) oy : 
0340 1F e59 "RRA ; 
O241 33805 940 JK CyCINIT JUMP IF INITIALIZABLE 
o243 110400 961 tO DE:4 2S mare so aeage h WER 
0244 19 : 942 ——ADD ACs TE ee ; 
0347 Cy 963 RET #G0 ON TO NEXT BANK IF NOT INITIALIZABLE 
er an Ib4 . CINITS ‘ atv ne tas : es : ‘ : : Paar tol 2 in 8 af . A ne 
0348 OEOS'\\. © 945 __LU_C,00001000B—— '. $CALL INITIALIZATION ROUTINE e ce nD SE ae ee TE a 
0340 = BABES: Y65 LE as (MAX BANK) 
O24U = 2B 947 DEL AL $GET AVURESS OF INITIALIZATION ROUTINE 
Os4E 2B. a). DEC HL eae _ hei eee 
O24F 2H 269 DEC HL oS “genio , oe 
o@50 84 = . 970 Loo. ¢HL) | , 7 pede Hee ae 
O251 2B 971 DEC HL 
O282 SE 972 LD E, (HL) : Fd Sen ke ines 6 ei ts lenin 
0353 62 ‘973 ; LO HD EA Oy PEE RRS lO 
0354 48 974 LO LE ; oes : 
o3s5 47 975 LO EA vie Ae 4 a 
0356° ES 976. PUSH HL : seo ee 
0257 CS 977 PUSH BC 
0252 010000 97/8 _ LO BC,O os 
oS5B CS 973 PUSH BC 3PARAMS IN AND OUT : eee 
osst CS r=i8) PUSH BC - oS pees Nae ae! 
o35D cCDDOES 981 CALL CALL_BANK © ; ea a er a 
03460 110800 9S2 LD DE. ‘ a eS se 
0243 419 =|. oe3 ADD HL, DE 
0364) Cy 9a4 RET 
985 . 
986 RESSCT: sPERFORMS BASIC RESET COMMAND — 
02465 AF PS7 XUR A of : 
0346 B32BESC 933 LD (MAX BANK) +A 
0349 821543 PED" LD (BS_MAX_BANK)»A 
o260 = 1400 290 Lo 0, 0COH +00 RESET ON(BEU / /TO ENTER INITIALIZATION MOVE oy 
- OS4E . 1E00 WPL LD E,0 EELC ; ag 2 : 
0370 CUSC6S 972 CALL. WRITE_BS_REG - 
0373 2ABCSC 993 LO HL,» (SYSCOM) - 
0376 110000 994 LU DE,12 Fin é : 
995 GOrGIT: ; G3 43 4 kprece py 
o379 «19 936 ALL HL s DE 5 HL poets Te feet *0f poor ne-covel ot ere oe 
O37A CDEAO2 R 997 CALL ASSIGN ‘ Fa ; 
O27D D20E04 RPS JP NC, NCOMORE sJUMP AT END OF DAISY CHAIN 
o380 7E 299 LD A, (HL) sTEST PRESENCE FLAG 
“0281 ES 1000 PUSH HL 3SAVE ADURESS OF START GF RECORD 
oz82 FESO 1001 CP 80H SEND UF TABLE? Aas 
0384 2005 1002 JR NZ, NOTENL ; Ss ert ree 
o386 111800 1003 LD DE, 24 + telte ifs ese A RBs pias reac a 
O27 8619 1004 ADD HL, DE $JUMP TO START OF NEXT RECORD_ . : . Pees ae 
OZ8A 77 1005 LD (HL).A MARK NEW END GF TABLE (4 conZan~ €OH) us Bo ae 
1006 NOTENU: —_ gh kOe = ae 
O22B CDEAO2 R 1007 (eA ASSIGN > “49 0 Seo Lene! 
038k 21E9SF. 1008 LD HL; TEMP_REC 
03971 1EFF 1009 LD E,255 _ $READ OVERHEAD BYTES 
0393 57 1010 LD DA SINTO TEMPORARY RECORD 


0394 DS 1011 PUSH DE Rank: Ao an'A spon atten foo ASSIGA/ 


INITIALISATION INIT . PAGE 12 


Loc GB CULE M STMT SOURCE STATEMENT ASM 5.9 
. : 
110000 1012 sD EL 
Ds 1013 PUSH DE 
ES 1014 PUSH HL 
111600 1015 Lo DE, 22 
0390 DS . 1016 PUSH DE 
O39E 110100 1017 LD Et 
O3AL DS — 1018 . PUSH DE . : ieee aie ia ee Ae 
O3A2 CH2267) 1019 CALL XFERBYTES ; POE Bn Tey 
O2AS 08 1020 EX Ar, AF“ isAVE A ( Lanhk #) 
0206 7E 1021 LI A, (HL) 
0307 2F fe SOR 9 as CPL DAO sot brkerds 
0208 2B 1023 DEG HL sWRITE A BYTE DIFFERENT FROM WHAT WAS READ eh ers 
O2A9 77 1024 LD’ (HLA — $70 DETERMINE IF RAM aoe 
O208 08 1025 EX AF, AF’ SRESTORE A ( L-ank #) . 
O2AR  14FF 1026 LD 0,255 ‘ 
OZAD SF 102 LO EA ae : : ESS NS 
O30E ODS * 1028 PUSH DIE | oe 
O3AF ES 1029 PUSH HL +XFER ALTERED BYTE 
O3BO 110200 1030, LD DE, 2 et 
O3B2 DS . 1031 PUSH DE | ‘ 
OZE4 — 110100 1032 Ss LD DE, t 
0387 1S 1033 PUSH DIE 
cd = a 1034 PUSH LE 
O3B9  CD2267 1035 CALL XFER_BYTES 
; 1034 ' 
O3BC" 1EFF = 1037 LD E,255 +XFER IT BACK 
O2BE 57 1038. LO DA 
O3HF DS 1039 PUSH DE 
o8CO 110200 1040 LD DE. 2 . 
o32c3 DS 1041 PUSH LIE ¢ Ls 
o3c4 23 1042 INC HL eg 
o3cS «ES 1043 PUSH HL 
‘O304 110100 1044 LD DE» 1 
o3ce 5 1045 PUSH DE ; es Bares, 
Osta 05 1044 PUSH DE s . Hoo aa 
O2CB ~ CLIZ267 1047 CALL XFER_BYTES ae 
1048 
OSCE = 7E 104% LD Ay (HL) SCOMPAKE WHAT WAS REAU BACK 
O2CF 2B 1050 vec HL 
O30 44 1051 LD By (HL) #70 WHAT WAS WRITTEN 
OSI BS \ 2 1052 cP B 
o302 200F 1053 JR NZ;NOTRAM  $1F WIFFERENT, DEVICE IS NOT RAM 
1054 
o3n4 ° £1 1055 POP HL $SEE IF WHAT WAS IN THIS SLOT BEFORE WAS RAM. 
o3ns  7E 105% LD A} (HL) : 
O34  FEO2 1057 cP 2 
ose 2004 1053 JRNZ,RAMNEW = sJUMP IF NOT 
O3LA 23 1059 INC HL sELSE STEP ON TO NEXT DEVICE 
oaDe = 23 1060 ING HL 
o@nC 1823 1061 JR STEPON ; 
_ 1062 RAMNEW: ; ; : 
O3DE CDF401 R 1043 CALL NEWRAM ; 


OSE1 1S81E 1044 "JR STEFCN 
oe 1045 NOTRAM: 


4 


. 


OBJ CODE M SIMT 


INITIALISATION 

Luc 

O3E3 4 
O3E4 Et 
OSES 23 
OSE4 23 
OZE7 /E 
OSES BY 
OSE? 2816 
OSEB ES 
OFEC EH 

SED 21E9SF 
O2FO 011400 
O3F3 EDEO 
O3F5 £1 
O3F6 28 
O3F7  3ABESC 
O3FA CBFF 
osFe 8077 
O3FD cCn3803 
0400 23 
o401 . 14C0 
0403 E01 
0405 CDECE3 
0408 111600 
0408 C27903 
“Q40E 3680 , 
0410 CD1404 
0413 «C9 
0414 AF 
0415 S32BE5C 
0418 2ABCSC 
041B 110C00 
O41E 19 
O41F  7E 
0420 FESO 
0422 2879 
0424 22 
0425 7E 
0424 CEHIF 
0422 2006 
042A 111700 
o42pD 19 
O42E 1SEF 
0430  22E95F 


R 


10446 
1067 
10438 
1069 


INIT PAGE 13 f° aed ionsonca kay 
SOURCE STATEMENT ASM 5.9 


1070 | 


1071 
1072 
1073 
1074 
1075 
1074 
1077 
1078 
1079 
1080 
1051 
1082 
1053 
1054 
10385 
1086 
1087 
1083 
1089 
1070 
1091 
10%2 
1073 
1094 
1075 
1094 
1077 
1073 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1104 
1107 
1102 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1114 
1117 
1118 
1119 


NDEV4: 


STEPON: 


NOMUREs 


LD C, (HL) ae hd PT cites aes 
POP HL sCOMPARE DEVICE SPEC WITH OLD DEVICE aaa 

INC HL 

INC HL 
LO A, (HL) . 
ce ec " Spats Ee 
JR Z,STEPON sIF SAME STEP ON TO NEXT DEVICE ee Be re aE Ee ke 
PUSH HL sELSE MOVE DOWN FROM TENP_REC 
EX DE,HL $GET. DEST i 

LO HL,TEMPLREC .sGET SRC ; 

LO BG, 22 

LDIR 

POP HL 

DEC HL pais PAS 
LD A, (MAX_BANK) . Peg: 
SET 7.0 

LO (HL)2A | (coud 5 ART) 

CALL CHIR +SEE IF NEW DEVICE HAS INITIALIZE/ROUTINE _ : 
INC HL : aD eee Cae pine cag ack ame 


LO U,0OCOH 300 STEP COMMAND TO NEXT DEVICE ON DAISY CHAIN ee ea eee 
LD E.1. : : ou 
CALL WRITE_BS_REG 
LD DE,22 
JP GOTOIT ’ ‘ 

+HERE AT END OF DAISY CHAIN , < 
LD (HL),80H 3MARK END GF TABLE Ae an, 
CALL RENUM_BANKS ; Se ty in 
RET : as 


RENUM BANKS: _ $RENUMBER EXPANSION BANKS IN ORDER OF INTERRUPT 


L2s 


sPRIURITIES pia at ee a 
sBANKS THAT HAVE NOT BEEN RENUMBEREL HAVE BIT 7 SET eS ila hh 
- $IN SYSCON BANK # RECURD Beate, Bags eae 
XOR A F LET 
LO (MAX_BANK).A 
SEACH TIME THRU LOOP RENUM HIGHEST INT PRI BANK 
LD HL» (SYSCON) : 
LO DE.,12 . . a 
AUD HL» DE ' Mah Se 
: sLOUP UNTIL UNKENUMBERED BANK FOUND OR ENU oF TABLE is 
LD A» (HL) .  $CHECK FOR END UF TABLE 
CP 30H 
JR Z+LX JUMP IF ALL BANKS RENUMBERED 
INC FIL CHECK FOR BANK # WITH BIT 7 SET 
LE Ay (HL? ee. 
BIT 720A | ; 
JR NZ,L3 3JUMP IF BIT 7 SET 
LD WE, 23 
ADD HL» DE 
JR L2 sCHECK NEXT. RECORD 
LD (TEMPLREC)»HL #SAVE BANK # ADURESS - 


q 


we 


» 


INITIALISATION INIT PAGE 14 
Loc OBJ CODE M STMT SQURCE STATEMENT ASM 5.9 
0433 2B 1120 CEC HL 
(0434 = =7E 1121 LD A» (HL) 
0425 FEO2 1122 CP 2 ; 7 
0437 «2008 1123 JR NZ,L33 +JUMP IF NOT RAM : : ‘a a AB gl ay Vs 
0437 111700 1124 LD De,23 ~ a sO eas 
o43c 619° 1125 ALD HL, DE x 
043D SEFF 1124 LO A, 255 3RAM INTERRUPT PRIGRITY IS 255 ae ieee ; 
043F 1805 1127 JR 37 x 
0441 111700 1128 Las LD DE, 23 
0444 19 1129 ADD HL,» DE SHL POINTS TO INT PRI ENTRY 
0445 7E 1120 LD A, (HL) 
0446 32ERSF 1131 LS37s LO CINTPRI),A FSAVE INTERRUPT PRIGRITY- 
0449 23 1132 L4: INC HL ; "i 
04408 7E 1133 LO A, (HL) sEND GF TABLE? 

0448 FESO 1134 CP SOH ; ‘ 
O44 2826 1135 JR Z+LG : 
O44F 23 11346 INC HL 
0450 7E 1137 LD A» (HL) s3CHECK BANK # 

0451 CET7F 1138 HIT 7.A 
0453 20046 113° JR NZLS 3JUMP IF BIT 7 SE1 F 
0485 ° 111700 1140 LD DE, 23 
0453 1? 1141 ADD HL, DE 
0459 1SEE 1142 JR La 3CHECK NEXT RECORD 
O45B 2B 1143 LS5s DEC HL 
O45C 7E 1144 LD A» (HL) ‘ 
o45D FEO2 1145 CP 2 31S IT RAM? 
O4SF = §=2004. 1144 JR NZ,L5S ; 
O441 111700 1147 LO Le, 23 . 
0464 19 1148 Aun HL» DE 
04645 18E2 1149 JR L4 $CHECK NEXT BANK FOR RAM SINCE IT CANNUT BE HIGHER PRIORITY ; 
0447 EB 1150 LSS: EX DE, HL 
0448 011700 1151 LO BC, 23 
044B 09 1152 . ABD HL. BC 
04460 BAEBSF 1153 LO A, CINTPRI) 
O44F = 47 1154 LD B.A 3GET SAVED INTERRUPT PRIGRITY 
0470 = 7E 1155 LD Ay (HL) 
0471 9 «Be 1156 CP B ;COMPARE AGAINST CURRENT INTERRUPT PRIORITY 
0472 3005 1157 JR NC)L4 sJUMP IF AD=B (SAVED PRI HIGHER OR EWUAL) 
0474 S2EBSF 11593 LD CINTPRI),A SAVE NEW INTERRUPT PRIORITY 
0477 EDSSE9SF 1159 LBD (TEMP UREC), DE 3SAVE NEW BANK # ADDRESS 
O47B  18CC 11460 JRL4a - 
047D 3ABESC 1161 Lé: LD A» (MAX BANK) 3 INC MAX BANK 
0480 «3c 1142 “INC A 
0481 S2BE5cC 1163 LD (MAX BANK) .A 
0484 2AE9SF 1144 LD HL, (TEMP_REC) 3GET SAVED BANK # ADDRESS 
0427 «+77 1145 LD (HL)»A $SSAVE NEW BANK # THERE 
1146 

0488  1EFF 1147 LD E.255 
O48A 57 1142 LO DA 3PUT BANK # AT ADDR O OF RAM 
o4eB 05 1149 PUSH CE ; DOES NGTHING IF ROM 
o4se SE 1170 LOE» (HL) ; 
o48D 1400 1171 LO 0.0 
O4SF ous 1172 FUSH DE 
0490 1E00 1173 LD E.O 


@ 


| 


s 


INITIALISATION 
Lac OB CUDE “M 
o492 oS 

0493 1E0O1 

0495 DS 

O49 0S 

0497 CD2247 . 

O49A C31804 R 

o49D AF 

O49E S2BEEC 
O4Al 321543 
O4A4 1400 

OAAS 1E0O 

O4A8 COSCle3 
O4AB ZABCSC 
O4AE 110L00 
O4B1 19 

O4B2 146A0 

0484 CDEAO2 = R 
O487 Lia 

0483 = SE 

O489 CUSC4E3 
O4kC 14C0 

O4RE 1E01 

94C0 coscé3 
04€3 111800 
0406 19, 

04C7 18EB 

X\X\ 


INIT : PAGE 15 
STMT SQURCE STATEMENT - ASM 5.9 
1174 PUSH DE : 4 
1175 LD E,1 : 
1176 PUSH DIE 
1177 PUSH DE 
1178 CALL XFERLBYTES 
1179 JP La 
1180 LXs 
1191 xoR A 
1162 LB (HAX BANK) 2A : 
1183 LD (BS_MAX_BANK)»A , 
1164 LO £1, OCOH sRESET DAISY CHAIN 
1185 .LD EO 
11846 CALL WRITE_BS_REG 
11&7 LD HL» (SYSCON) 
1188 LD UE,13 i 
1189 ADU HL, DE iHL POINTS TO BANK # OF FIRST EXP BANK 
1190 LD [,0A0QH sWRITE NEW BANK # TO ABN 
1191 =LX1is ; 
1192 — CALL ASSIGN 
1193 RET NC sRETURN IF AT END OF UAISY CHAIN 
1194 LD &> (HL) . 
“1195 CALL WRITE_BS_REG . 
1196 LD D,OCOH 3STEP TG NEXT BANK IN DAISY CHAIN 
1197 LD E,1 ; 
1193 CALL WRITE_BS_REG ‘ 
1192 LO DE, 24 
1200 ADD HL, DE 
1201 JR LX1 
1202 END i 
” 


@. 


a 


CHNG_VILI 


} 


a 


rr So ee a 2 Pe ee 


FAGE 1 woe 
Lac QBJ CODE M STMT SQURKCE STATEMENT asm 5.9 i 
41S ¥#LIST an . 
419 #LIST ON F , 
420 : : 
421 GLOBAL OPLIFILE2, CLDFILE2, CHNG_VID 
422 ; aa: 
423 INSERT_SZ EQu 7BOOH-DRIVES : ita? 
424 MOVE_SZ EC DRI VES-6000H : ats Py bad 
425 DEST7 “Et QOFFFFH-MOVE_SZ+1 
424 FIX Eqw DEST7-46000H ; 
427 
423 FIXTBL Eau 1D00H . ; : 
427 CHS ; EGU éSD0H : . : 
430 CE7 EQu CH2+F 1X 
431 HES Eg 6499H 3 
432 BE7 Eau RES+F IX ‘ F ; 
433 REMNGSZ EGU 12CAH .. 
34 LELREC EQu 1750H 
435 
436 ‘ : 
437 : + ; 
4323 $3 OPDFILE2(MQDEs A) -— OFENS SECOND DISPLAY FILEAND SEIS VIDEO MODE TO MODE 
SF 3 : 
440 : ieee BE tes ee te 
Qoo00d cs 441 OPDFILE2 PUSH BC . S$SAVE REGS 
QOO4 os ‘442 FLUSH DE 
n002 ES ; 443 : FLUSH HL 
onn03 FS 444 PLUSH AF ‘ 
Q004 ZAB45EC ‘445 ef “HL (PORAMT) 
0007 EUSB7BSC ‘446 : LO DE, (UDG) : 
QOOR A7 447 AND Aa : : 
a00r EDS2 4438 SBC HL, DE : 
OOOE 44 © 449 Lo H, H 
QO0OF 40 450 Lo CG, b : 
0010 O23 431 INC BC 
ag11 ZA/ESC 452 LO HL, (UDG) 
0014 ES 4353 PUSH HL 
aoLsS 114008 434 LD DE, MOVE_SZ 
00183 A7 435 AND A 
oo1? EnS2 456 Sec HL. DE 
Oo1B EB 457 EX DE, HL 
OO1C El 4398 FuP HL. SHL = UDG; OE = UDG — NOVE_.SZ 
oo1n EUS327B5C 459 Lu (UDG), DE 
‘ 460 3; 8C = PLRAMT ~- UDG + 1 
O021 EDBO 441 LOIR ‘ SMAKE ROOM FOR STACK AND RAMCODE 
e023 210000 4G2 Lo HL, 0 x 
0026 39 443 raya) a) HL, SF 
0027 O1CO97 464 LO BC, FIX 
* 002A ao? 445 ADD HL, BC 
O02 F2 444 apf S$DISABLE INTS WHILE MOVING STACK 
og2zt F? 467 LO SP. HL 4MOVE SP LIP 
oo2n 11COF7 463 LO vE, DEST7 : 
a030 2100460 449 Lo HL.» &6&000H 
“0033 014008 470 Lo BC, MOVE_SZ 
0034 ELIBO 471 LOIR sMOVE STACK ANU RAMCOUE 


CHNG.VID ; ; PAGE 2 


LAC OBS COLE M STMT SOURCE STATEMENT ASM Sg 
0038 210010 472 LO HL,» FIXTSL 100 ADDR FIXUPS 
QO3B O1C097 473 Lo BC, FIX $BC = AUR CORRECTION 
OO3E SE 474 NXTF1 LD FE, (HL) 
OO3F 23 475 Inc HL 
0040 baling 47& Lo: D, (HL) ; 3DE = ADDR OF NEXT FIXUP 
OO41 23 477 INC HL 
O04? 7B 473 LO Aa, E 
0043 B2 47? OR D 
Q044 . 230F 4ao JR Z, FOONEL . 3FIXUPS DUNE 
0046 Eb 431 EX DE, HL sMODIFY TABLE ENTRY FOR CHUNK 7 
0047 ay 432 ADD HL, 8c ‘ 
o048 oS 433 PLISH DE ‘ 
ona? SE & , LD E, (HL) 
O04 23 435 INC HL 
0048 54 4S4 LO t. (HL) 3DE = VALUE TO BE FIXED 
O04 EB 437 EX DE,» HL 
oo40 Oo? 432 ADD HL, BC SADD CORREC ION 
OO4E EB 429 EX DE. Hb 
OO4F 72 470 LD (HL), D tWRITE NEW VALUE 
0050 2B 491 DEC HL ; 4 
OOS1 “73 - 492 LO (HL), E 
O032 El 493 PoP HL. 
0053  18E9 4o4 JR NXTF1 
OO0SS Fi 495 FDONEL FOP AF 
0054 220259C 49s *. LO (VIDMOD), A 
OOS? FS 4Y7 PUSH AF ; sUPDATE VIDMOD AND ENABLE IN1S 
OOSA FB ' 493 ; EI SENABLE INTS ' 
OOSB 210060 479 LD HL, &000H 3CLEAR CONTENTS OF DFILE2 
OOSE AF S00 NXTCLR ' XOR cs) 
OOSF 77 SOL Lo (HL). A 
00460 23 S02 INC HL. 
O061 7c S03 LD A» H 
O02 FE/B S04 ; CP 7BH : 
0064 20F8 S05 JR NZ» NXTCLR- . SQTHERWISE DONE 
0085 Fi S06 FOP AF “$SET NEW VIDEO MOLE 
0067 FS 507 PUSH AF 
O04 EG7F S08 AND 7FH 
QOO6A 47 Sa? Lo RB, A 
OO4B DBFF S10 : In, A> (HREXPT) 
ooé6D E630 S11 AND SOH 
OO4F BO S12 OR _ 2B 
0070 U3FF 513 CWT CHREXPT)» A 
0072 El 514 Pur HL sRESTORE REGS ‘ 
0073 D1- S15 e FOP DE : 
0074 Ci S16 e POP BC 
0075 Fi S17 For AF 
007& Cc? S138 - RET 
S19 
S20 
S21 


3 CLOFILE2(MODE: A) — CLOSES THE SECOND DISPLAY FILE ANL CLEARS THE VIDEO MODE 
S22 3 ; 
S23 3 
0077 FS 524 CLOFILE2 . PUSH AF ‘ S;SAVE REGS 
0078 #6Cc5 - 525 PUSH BC 


CHNGVID PAGE 3 
LOC 860 CODE M STMT SOURCE. STATEMENT , 2M 5.9 


0079 DS S26 PLISH LIE, 

007A ES 527 PUSH HL 

0O7H DEFF S23 IN A, (HREXPT) 

oo7D E&sO SZ? AND 80H 

0O7F  DSFF =: ".. S30 GUT (HREXPT)» A ‘CLEAR MODE 

0081 210000 S31 Lo HL, 0 

o0g4 = 3 532 ADD HL, SP 

oo85 110097 533 LD DE, FIX 

aos  A7 534 AND: A 

oos? ELS2 S35 SBC HL, DE : 

OOsR Fa 536 LT +DISABLE INTS WHILE MOVING STACK 
oose FP S37 LO SP) HL #NOVE SP DCWN 
‘008 21FFFF 533 : LD HL, OFFFFH 

0090  113F68 539 Lo DE, DRIVES-1 

00973 014008 540 . Lo BC, MOVE_SZ 

0094 ELS S41 LDOR sMOVE STACK AND RANCODE DCWN” 
oo78 21001ID © S42 © Lo HL» FIXTBL 3DO ADDR FIXUPS 
OOFR 010097 543 Lo BC, FIX 

QO7E SE : S44 NXTF2 Lo E, (HL) 

QOPF 23 545 Na INC > HL 

GOAQ - 56 : $46 LD Dy (HL) a 3DE = AUDR OF NEXT FIXUP 
OoAL 22 . 47 INC HL 

OOAZ 7H | 543 Lo A, E 

OOA3 = -B2 549 CR i) 

0OA4 2810 S50 JR Z, FDONE2 - $FIXUPS DONE 

0005 ES S51 FUSH HL 

o0a7, EB! si2 : EX DE, HL 

oOAgs SE 553 LD E, (HL) 

QOA? = =23 S54 ING HL 

OOBA Sb, S55 LD De (HL) sDE = VALUE fO BE FIXED 
OOAB EB 5546 ; EX DE, HL 

OOAC = AT S57 AND A 

ooAn En4a2 soo SBC HL,» BC 

OOAF EB s59 EX OE, HL 

oOBO 72 540 LD (HL), D SWRITE NEW VALUE 
OOBL 26 S61 DEC HL 

OORS 73 S42 Lu (HL), E 

OOn3 EL 563 POP HL 

OOB4 1868 564 JR NXTF2 

OORS = AF S45  FDONE2 XOR A , 

OOR7  B2025C 566 Lo (VIDMOL), A sUPFDATE VIDMOD AND 

OORA FB 567 EI sENABLE INTS 

OOBK = Z1BFF7 543 ED HL, DEST7~1 

OOBE 4 L1FFFF 8 S&? » 13 CE, OFFEFH 

ooct ES , 570 : PUSH HL F 

ooc2 ED487B5C S71 Lo ec, (UDG) 

aoc’ AT 572 ANU A 

00c7 En42 873 Sec HLs BC 

oory 44 574 Lo B, H 

ooca = 4n S75 = LD Gb cae, 25 
OOCR Og 576 INC BC ; 

ooce El S77 POP HL 

oorn EDB2 S73 LODR ‘ sMOVE UDG UP 

OOCF 114008 S79 Lo DE, MOVE_SZ 


Lac 


oone 
oons 
OODS 
oon? 
QQLIA 
oonB 
oon 
oonn 


OOnE 
OODF 
QOEO 
OOEL 
QOOE2 


QOOES . 


QOES 
OOE7 
OUES 
OOEA 
OOED 


“ OOFO 


OOF 1 
OOF? 
OOFS 
OOF S 
QOFA 


OOF B. 


OOFF 
0100 


O102° 


O1O5 
o108 
O10B 
o1o0c 
Q10F 
0110 
O113 
O114 
Oo11s 
O113 
O11B 
o11Cc 
OL1E 
O11iF 
0120 
O123 
O126 
0129 


CHNG_VID 

OBJ CODE M STMT SUURCE STATEMENT 
2A7HSC S80 LD 
19 Sal ADD 
227BSC 582 Lo 
El 53 POP 
D1 54 POP 
C1 $85 POP 
Fl . 586 PoP 
co 587 RET 

583 

ga9 

590 § 

S91 4 

592 $ 1 

593 3 

594 ; 
cs 595 CHNG_VID PUSH 
DS 596 PLUSH 
ES 597 PUSH 
FS 598 PLUSH 
47 599 LD 
BACZSC 600 Lo 
n7 601 ANU 
2054 602Z JR 
BO 603 OR 
cAsnOL R 604 uP 
21C012 605 mt) 
44, 604 LD 
4D 607 LD 

114008 608 LD 

19 609 ADD 
EDSE4SSC = 410 Lo 
19 11 ALID 
EDSBB25C 612 Lo 
A7 613 AND 
EDS2 614 SBC 
D28A01 oR 615 JP 
212F 463 614 Lo 
11CA12 G17 LD 
DS 618 PUSH 
1100FF 619 LD 
pS. &z PUSH 
110000 621 Lo 
DS 622 “ PUSH 
DS Cr a ° PUSH 
CODOGS- &24 : CALL 
ZA6S5C 625 Lo 
EB 626 EX 
EDES 627 LODR 
Fi be PUP 
FS 629 PUSH 
CHOO0O - R $30 CALL 
010097 | 631 Lo 
ZASDSC 632 LD 
09 633 ADD 


HL, (ULIG) 
HL, DE 
(UDG), HL 


AS REQUIRED. 


PAGE 4 
ASM 5.9 


sUPDATE ULG 


SRESTURE REGS 


CHNG_VID(MODE: A),- CHANGES THE VIVEO MODE, OPENING AND CLOSING DFILE2z 
BITS 0-6 OF M°UE CONTAIN THE VIDEG MODE, 


BIT 7 SEf CAUSES DFILE2 TO RENMAIN OPEN IF ALREADY 


OPEN 


BA: 
A» (VIDMOD) 
A 


NZ, MUDE_NZ 
B 


Z, EXIT_UK 


HL, INSERT_SZ 


B, H 

Gb 

DE, MOVE_3SZ 
HL, DE 

DE, (3STKEND) 
HL, DE 

DE, (RAMTUP) 
Aa 

HL, DE 

NC, EXIT_NG 
HL.» DORIVES-1 
DE, REMGSZ 
DE 

DE, OFFOOH 
DE 

DE, O 


HL,» (STKEND) 
DE, HL 


OPDFILE2 

BC, FIX 

HL, ° (ERR_SP) 
HL, BC 


3SAVE REGS 


sJUMP IF CURRENT MODE IS NUNZERO 
sNOTHING TO Da 


sHL = TOTAL ROOM NEEDED 


SNOT ENOUGH RUCM 


sCALL BANK REMGSZ 


sMOVE BASIC STRUCTURES UP 


sUPDATE ERKR_SP, LIST_SP, MSTBOT 


a ce eer 


Lac 


012A 
o1Zu 
0130 
O34 
0134 
0137 
0138 
O13B 
o13D 
O13E 
O13F 
O141 


/O143 


0144 
0146 
0148 
O149 
O14B 
Oo14C 
OL4F 


O11 . 


O154 
0157 
O15A 
0158 


ors 


01460 
0163 
O1464 
O164 
OLS? 
O160 
O1é6D 
O1L6F 
0172 


O175 


O1/3 
QO17B 
o17c 
O17F 
o180 
O13 
o1s4 
O185 
O1se 
O18A 
O1SB 


‘o1en 


O1SE 
O18F 
O1vO 
O191 
O192 


OBJ CODE M STMT SOURCE STATEMEN1 


22305 
2A3F5C 
09 

223F5C 
ZACOSC 
oP 

22C0SC 


32025C 
1223c 
CO7700 

‘O1CO97 


223F5C 
ZACOSC 
A? 
ED42 
22C02C 
O1Cd12 
214068 
115017 
DS 
LLOOFF 
o5 
110000 
nS 

DS 


COLO6S 


R 


634 
625 
$24 
637 
638 
639 
640 
OAL 
642 
643 
644 
645 
644 


GS 
682 
633 
34 
635 
G86 
687 


CHNGVID 


MODE_NZ 


CLOSE 


EXITUNG 


EXIT_Ok 


EXIT 


(ERRUSP), HL 
HL, (LISTS) 
HL, BC 
(LISTSF)» HL 
HL,» (MS1TBUT) 
HL, BC 
(NSTBOT)» HL 
EXIT.ok 

LO Aa, B 
Aa 

Z, CLOSE 

7FH 

B, A 

A, (HREXPT) 
30H ; 

B 

CHREXPT)> A 
A, B 
(VIDMOD)., A 
EX1T0K 
CLOFILE2 

BC, FIX 

HL, (ERR SP) 
A 

HL, BC 
(ERRUSP). HL 
HL, (LISTSP) 


‘A 


HL. BC 
(LISTSP), HL 
HL, (MSTBUT) 
A 

HL, BC 
(MSTHOT), HL 
BC, INSERT_SZ 
HL,» URIVES 
DE, JELREC 
De 

QE, OFFOOH 


SCF 


’ 


PAGE 5 
ASM 5.9 


“$CLOSE DFILE2 


sLEAVE DFILEZ OPEN AND SET NEW MODE 


"SUPVATE ERRSP, LIST.SP, MSTHOT 


SMOVE BASIC STRUCTURES DOWN 


sCALL_BANK DELREC 
+ DONE 
SET CARRY FLAG TO INDICATE ERROR 


sRESET CARRY FLAG TCG INDICATE aK 
SRESTURE REGS 


Loc 


XNXN 


CHNG.VID 
OBJ CODE M STNT SOURCE STATENENT 


688 END 


PAGE 6 
ASM 5.9 


PASSING FAGE 1 


oe 


LOC OBJ CODE M STMT SQURCE STATEMENT ASM 5.9 
418 #LIST ON 
419 #LIST ON 
420 
421 GLOVAL PASSING 
AZe 
422 SKIPIT EAU 255DH 
0000) ED4ESDSC 424 PASSING: Lo BC, (CHADD) SSAVE CURRENT CHARACTER ALIDRESS. 
0004 = CnSn25 425 CALL SKIPIT —— SPOSITIUN CHADD BEYOND THE PARAMETERS TO 
426 3 BE PASSED TO THE BUS EXPANSION UNIT DEVICE, 
0007 = 2ASDSC 427 LD HL» (CHAGID) $GET NEW CHARACTER ADURESS. 
000A = AT 426 AND A CLEAR CARRY. 
OOOR- . ED42 429 SBC HL» BC i1GET # OF CHARACTERS TO BE PASSED AS PARAMETERS 
eoon 2 430 DEC HL $ TO THE BEU DEVICE INTO A. 
QOOE 7D 431 LD AL 3 
COOF  2A655C 432 LD HL» (STKEND) $SAVE # OF PARAMETERS. 
WO12 = 77 432 LD (HL)2A 
0013 23 434 INC HL 
0014 Ct 435 POP BC SAVE RETURN ADDRESS ON THE CALCULATOR STACK. 
oo15 70 AB6 LD (HL)»B ; 
0016 23 427 ING HL 
0017-71 423 Lo (HL) 2c 
0018 23 429 INC HL 
oo19 © 224655C 440 LD (STKEND) »HL 
oo1cC 2ASD5C’ 441 LD HL, (CHADD) GET POSITION OF FIRST CHAR TO BE PLACED ON 
OO1F 2B 442 DEC HL 3 THE STACK. 
0020 CB47 443 BIT OA 00D # TO BE PASSED? 
oo22 2e0C 444 JR Z, O010NUM YES, EVEN # PLUS 1 FUR COMMAND) TUKEN MAKES 
445 : ; ODD, 
0024 «630 444 PUSHEM: DEC A 3DHECREMENT THE PARAMETER COUNTER AS YOU GET 
0025 46 447 LD B, (HL) 3 THE NEXT CHARACTER. 
0024 2B 448 DEC HL #DITTO FOR THE PLACE HOLDER. 
0027. «2D 449 DEC A SAGAIN. .. 
0023 FA3AGQ R 450 JP M, PASSRT SUNLESS THE NEXT CHARACTER SHUULD BE THE 
AS1: 3 COMMAND 1OKEN. 
002B 44E 452 Lo C> (HL) 3 
OO2C ° 2B 453 DEC HL 
oo2D) C5 454 PUSH BC $SET THEM ONTO THE MACHINE STACK. 
OOZ7E 18F4 455 JR PU'SHEM $KEEP GUING UNTIL ALL ARE DONE. 
456 ‘ 
00320 = 0620. 457 ODDUNUM: LD B.’ ¢ 3TO ENSURE THA! AN EVEN NUMBER OF PARAMETERS 
458 3 ARE PASSED, MAKE THE LAST CINE A SPACE. 
0032 A7 459 AND A ANY OTHER PARAMETERS BESIDES THE COMMAND 
-A&O : 3 TOKEN TO BE PASSED? 
0033 Cs 441 RET z 3NO, SO FINISH UP. 
0024 4E 462 Lo C. (HL) sYES, SQ PASS FIRST PAIR. 
0035 28 463 DEC HL $DECREMENT POSITION COUNTER... 
0024 3b 464 DEC A SAND PARAMETER COUNTER. 
0027. «C5 445 PLUSH BC -$SET FIRST PAIR ON), THE MACHINE STACK, 
0038 14EA 446 JR PUSHEM SAND CONTINUE, 
447. 
OOZA 2A4655C 443 PASSRT! Lb HL, (STKEND) RESTORE RETURN AUDRESS. 
oosb 449 CEC HL 
003E 7E 470 Lb A> (HL) 
0O3F 28 471 DEC HL 


226550 
&& 


FASSING . 
-GeJ CODE M STMT SOURCE STATEMENT 


(STKEND) » HL 
H» (HL) 

L»A 

HL 


Loc 


000 
folate | 
004 
o00s 
0007 
0008 
OOCR 
oo00c 


QOOF 
OoO10 
O013 
0014 
0016 
QO17 
O01A 
001B 


OBJ CODE M STNT 


ZACZSC 
A7 ' 
2304 


C3D0éS 


413 
419 
420 

zi 
422 
423 
424 
425 
426 
427 
428 
Az? 
420 
431 
432 


433 


' 434 


435 
436 
437 
433 


BS 
SOURCE STATEMENT 
#LIST ON 
#LIsST ON 
BS_SZ 
DEST7 
FIX 
GB3 
GB7 
CE3 
Cyu7 


GLOBAL 


GOTO_BANK 


GO.GB3 


CALL.BANK 


GO_CB3 


Eau 
Ect 
EQu 
Eau 
Eau 
Eau 
Eau 


PAGE 
ASM &. 


we 


DRIVES-6000H 
OFFFFH-BS_SZ+1 
DEST7—6000H 
63572H 

GB3+F 1X 

&500H 

CES+F1X 


GOTOLBANK, CALL BANK 


PUSH 
LO 
ANU 


AF 
A, (VIDMOD) 


Z, GO_LGR3 


i 


Loc 


OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
418 ¥*LIST ON 
419 #LIST ON 
420 *INCLUUE NEW.SYSVAR2.$ 
21% HERE ARE SOME NEW SYSTEM VARIABLE DEFINITIONS 
422 3 
423 3 
424 STKSZ EQU 200H 
425 SAODPT Eou OFSH § $SQUND CHIP ADUR PORT 
426  SUATFT EQU OF6H  $SOUND CHIP DATA PORT 
427 HS EOU 40H 
428 HS_LSN ~ EGU HS 
429 BNA Eu 80H : 
430 HS.MSN + Eo BNA 
431 AEN ; EOU QAOH 
422 HSP EAU AEN tHS* REG AUDLR 
433 STALL EG AEN 
434 CMU EA OCOH 
435 STAG EQU CMD 
436 LOWNYB EQU OCOOOH SRESET NYBBLE SIEERING LOGIC CMD 
437 FREE_MYTES Eo 32 : : 
428 PRMLOUT - EQU 8 
429 HOR SEL Eau 10 
440 BANK Eau 11 
441 UPD_K Ev OZE1H 
442 3 
443 3 
' 444 - | 
445 GLOBAL DISFATCH, .INT,» NMI, PUTLWOKD, GE1_WORD 
446 GLOBAL WRITE_BS_REG, READ_ES_REG, GET_STATUS, GET NUMBER 
447 GLOBAL GET_CHUNK, BANK_ENABLE, GOTO.BANK: CALL_BANK 
448 GLOBAL XFER_BYTES, HS_MAX_BANK, BS_SP 
449 GLOBAL CKEATE_BITMAF, MOVE_BYTES 
450 
451 % DISPATCH (SVC_CODE: PASSEU ON STACK) 
AS2 3 
453 3 SVC_CODE IS A 16 BIT QUANTITY. BIT 15 IS USED AS A JUMP FLAG: IF 
4543 SET, THE DISPATCHER WILL DQ A GOTO_BANK TO THE SPECIFIED RUUTINE, 
455 5 OTHERWISE IT WILL DG A CALL_BANK. 
454 3 
457 3 
458 3 ; 
459  JMPTBL EAY 1FFFH 
440 LAST_-EXT.svC ‘EQU 13 
461 LAST_RAM_SVC® EAU 24 
462 3 . 
463 $ 
4b4 3 
465 ORG 4200H 
4&4 
DD210000 = «447 DISPATCH Lo 18506 
DLS? 4&8 ADD IX, SP sIX = SP 
cS AL? PUSH = BCC “$RESERVE A WORD.ON THE STACK 
FS 470 PUSH = AF 3SAVE REGS 
cs. 471 PUSH  - BC 


DISPATCH ; PAGE 1 


vy 


Loc 


46209 
&20A 
4208 
&20E 
6211 
6212 
6214 
£216 
6217 
S210 
&21C 
6Z21E 


“G21F 


6221 
6223 


4224 


DISPATCH 


UB. CODE M STMT SOURCE STATEMENT 


0S 
ES 
DUISEO? 


AF 


380F 
OFF 
chos64 
OGFF 
1800 
O4FE 
OEFE 
1804 5 


DO/71FE 
DD7OFF 
DOGEOO 


DN4601° 
DO74O3 - 


DD7S02 
DO7Z01 
007300 
El 
Lt 
C1 
Fi 
CD7265 


DOS403 


472 
473 
474 
473 
476 


«477 


478 
479 
480 
4s1 
482 
423 
434 
ass 
AB 
487 
483 
429 
430 
ay 
492 
493 
424 
495 
4% 
427 
498 
499 
500 
501 
502 
503 
504 
SOS 
504 
507 
508 
509 
510 
Sit 
S12 
513 
514 
515 
S14 
S17 
519 
S19 
520 
S2 

S22 
523 
S24 
525 


DLEXT 


DHOME 


DSAVE 


PUSH 
PUSH 
Lo 


__—-GET. 


\PAGE 
ASM 5. 


oH 


;DE = SVCLCODE 


;DE = 2eDE 
3A = JUMP FLAG 
tHL = 2eHL 


;COMPARE HL AND DE 
s1F DE <= HL 


“SHERE FOR RAM-BASEL) SERVICES 


SGET STATUS GF HOME BANK 
sBC = HOME BANK / HORIZ-SELECT 


SHERE FOR EXT. ROM BASED SERVICES 


#SET BANK-ENABLE PARMS FOR HOME 


'SSAVE JUMP FLAG ANU BANK_ENABLE FARMS 


;CALC. ADDR OF TABLE ENTRY 


sREAD TABLE ENTRY 
SRESTORE JUMP FLAG, ETC. 


sPUT BANK# AND HOR-SEL ON STACK 
SSAVE RET ALDR 

$FUT RET ADDR BACK GN STACK 

#SET UP STACK FOR GOTO_BANK 


sFUT ADDR ON STACK 
SRESTORE REGS 


DE 

HL 

E, (1X+2) 

D, ¢1X+3) 

a 

E 

i] 

HL, LAST EXTSVvc 

L 

H 

a 

HL, DE 

NC, DEXT 

HL,» LAST.RAM_SVC 

L. 

H 

a . 

HL, LE 

C, DOHOME 

B 255; 

STATUS > 

B, 255 

[SAVE 

B, 254 

C, OFEH 

DOSAVE 

B, 255 

co 

AF 

BC 

HL,» JMPTBL 

HL, DE 

B, 254 
~GET_WORD > 

pacman 

BC 

AF 

rs) 

Z. DUOCALL 

(IX-2). C 

(1X-1). & 

L. (IX) 

H, (IX+1) | 

(IX+3), H 

CIX+2), L 

(IX+#1), D 

(IX), EB ‘ 

HL 

DE 

BC 

AF ° 

GOTO_BANK 


SHERE [F JUMP.FLAG SET 


a 


DISPATCH FAGE 3 


LOC OBJ COVE M STMT SOURCE STATEMENT ASM 5.9 
6274 — DISEOO © 524 D_CALL LD Ls) CER) $SET UP STACK FOR CALL_BANK 
4277 DDS601 527 LD Hy (IX+1) $PUT RET.ADDR IN FROPER LOC 
627A ES 522 FUSH HL 
6278  DLGEO4 S29 Lo Ls (IX+4) 
427E  DNS6o5 530 Lo Hy (IX+5) 
621 DL7SFE 531 LD (1X-2)) L 
6284 DD74FF 532 Lo (IX-1)) H 
6227 DNGEOG 533 LD L, (IX+6) 9° $PUT PRMLOUT IN PRPER Loc” 
628A — DLIG407 534 LD Hy C1X+7) 
6260 Dn7500 S35 LD Che L 
6290 = DD7401 5360 LD (IX+1), H 
6293 LIN7102 537: ; LD (1X4+2), ¢ sPUT BANK #,° HS UN STACK 
6276  DU7003 53a Lu (1X+3), B 
6299 DD7304 539 LOD (IX+4), E 3PUT ADDR ON STACK 
623C  DL7205 540 LD (1X+5), D 
629F EL 541 POP HL 
62A0  DN7506 542 Lo (IX+6)5 L 
$202  DD7407 543 LD (IX+7), H 
6206. E1 544 FOP HL SRESTORE REGS 
2a7 DM . 545 FOP LE 
62az Cl 544 PoP BC 
ZA9 FA 547 PUP AF 
62AA CLDOeS sg CALL - CALL_BANK tHERE IF JUMP FLAG NOT SET 
6zaD CP 549 RET 
S50 3 cay 
S51 3 ; 
; ag2 SRST 56: HERE TO SERVICE INTERRUPT BY READING KEYBOARD 
553 ; Bona 
62AR FS 554 INT PUSH AF 
ZAF ES 555 PUSH HL 
6280 DUES - 554 PUSH IX To 
&2B2 210000 587 - LD HL, © su 
. 6285 39 552 ADL HL» SP 
6284 DS ugg PUSH = LE 
62B7  3A1563 540 Lo A, (BS_MAX_BANK) 
62BA SF 541 Lo E, A. bog 
42BE 1400 542 Lo D, oO 
42B0 13 543 INC DE 
42BE 13 564 INC. DE i Hyer ee 
Z2BF AT S45 AND A 
6200 EDS2 544 SEC HL» DE 
6202 EB 547 EX DE, HL LOA 
6203 DDZ10000 568 LD ee 
6207 DRIP 549 ADD > IX, DE 
6207 Dt 570 POP’ DE 
4200 DDFS S71 LD - SP, 1X 
42cc CDLE6S 572 CALL  SAVE_STATLS 
620F CS 573 PUSH BC 
6200  O4FF 574 Lo By OFFH 
6202 cChose4 575 CALL  GET_STATUS 
6205 OFF 574 LD Hy OFFH 
6207 79 B77 Lo A, c 
e208 E4FS 578 "AND OF SH 


620Q  4F 79 LO Cc, A 


6207 
6303 
4309 
&30C 
6300 
&30E 
6310 


6311 
6312 
$313 


6315 


4316 
6317 
6318 
6319 
631 
631D 


DI 


SFATCH © 


OBS CODE M STMT SOURCE STATEMENT 


CD9964 


2003 
FDI3440 
cs 


S80 
S81 
S82 
Se3 
S34 
S385 
S86 
537 
S33 
S39 
SPO 
Sv 1 
S92 
S93 
94 
SPS 
S96 
397 
S93 
Spy 
600 
601 
602 
603 
604 
605 
606 
407 
603 
607 
610 


LITSs 


PHLAF # 


PAGE 4 
ASM 5.9 


CALL BANK ENABLE 


PUP BC 

LD HL, (FRAMES) 
INC HL 
LO (FRAMES), HL 
LO ADH 

OR L 

JR NZ LI 


tNOW INCREMENT FRAME COUNTER © 


INC (IY-Y+FRAME2) 


PUSH BC 
PUSH DE 
CALL UPDLK 
POP DE 


SUMP HERE TO FOP HL, POP AF» ENABLE INTERRUPTS & RETURN 


FOP BC 
LD IX, 9 
ADD IX, SP 
CALL RESTORE STATUS 
INC Ix 
LD SP, IX 
FOP Ix 
PUP HL 
POP AF 
. EI 
RET 


NMI 


SHERE TO SERVICE NON-MASKABLE INTERRUPT 
sIF (NMIADD) = O THEN RETURNS STRAIGHT AWAYS 


SELSE, JUMPS TO (NMIADU) WITH HL (ON TOP), AF & RETN AUDR ON 


$ THE STACK. 


PUSH AF 
PUSH HL 


“LD HL, (NMIADL) 


~MAX_B 


GET_W 


we ve we ve tj ve ve 
go) 


GET_WORD 


LD A»H 

OR L 

JR NZ»LNIS 
IP CHL) 


PUP HL 
POF AF 
RETN 


ANK,”  DEFS 


ORD CALDR? HL, 


PUSH 
FUSH 
PUSH 
. CALL 
PUSH 
LD 


SIF NO USER-SUPPLIEL) SERVICE ROUTINE 


1 sTHIS IS A COPY OF MAX BANK 


BANK? Bs WORD: HL) 


AF 7SAVE REGS 

BC ; 

DE 

GET_NUMBER $GET BANK # OF GWNER OF ADDR 
AF 

D, B 


© @ @ @ @ Se 6 @ @ @ @ Se bf se © @ @ S S © 
i 


Loc 


O31E 
631F 
6322 
4322 
6326 
6327 
6328 
6329 
6320 
6320 
6326 
&32F 


"63:30 


6331 
6332 
6333 
4334 
6237 
63:33 
6239 


632A - 


DISPATCH 


GB) CODE M STMT SOURCE STATEMENT 


47 


CHOS64 


cs 
ch4p64 
2F 
42 
4F 
CD7964 


CLP964 
D1 
C1 
Fi 
Cc? 


Chose4 
cs 
ch4ne4 
2F 


634 
635 
434 
637 
633 
639 
640 


we ve ve ve ue 


B, A 
GET_STATUS 
BC 

GET CHUNK 
B, D 

Cr, A 
BANK_ENABLE 
E, (HL) 


B, A 


PAGE S 

ASM 5.9 

$GET STATUS OF GWNER . 

3SET HS FOR GETTING AT ADDR 
sPUY IN ACTIVE LOW FORMAT 


SENABLE ADDR 
sREAD THE WORD 


SREENABLE OWNER OF AUDR 
SRESTORE REGS 


PUT_WORD (WORU: DE, ADDR: HL, BANK: B) 


UT_WORD PUSH 


CALL 


WRITE_BS.REG (REG_ADDR: D, REG DATA: 


AF 


GET_NUMBER 
AF . 
D, B 

BR, A 
GET_STATUS 
BC 

GET CHUNK 


B, D 

Cc, A : 
BANK ENABLE 
(HL), E 


BANK ENABLE 
BC 


3SAVE REGS 


1GET BANK # OF OWNER OF AUDR 


sGET STATUS QF GWNER- 


sSET HS FOR GETTING AT ADDR 
sPUT IN ACTIVE LUW FORMAT 


SENABLE ADDR 
IWRICE THE WORD 


3REENABLE GCWNER CIF AQUR 


am 


DISPATCH PAGE 6 Ae * tree etl 
Loc OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 ce : pars 
4350 FS 2 422 WRITE_BS_REG PUSH AF $SAVE REGISTERS 
25D C5 689 PUSH BC 
435E ES 690 HL 
25F 62 6P1 H, D 
6360 2E00 . 692 L, oO tHL = MEMORY MAPPED ADDR 
6362  2A00C0 &93 A, (LOWNYE) $SAVE (OEQO0H) 
£365 FS 694 AF 
6346  7E 695 A, (HL) $SAVE (HL) 
6347 FS 96 AF : 
6348 E07 697 A, 7 Ms gs oe 2 eae aes 
636A DaFS 693 (SALDDPT), A S'SAVE VALUES OF SOUND REGS 7 AND E ~ Resins ea rs a 
6340  DEFS 6v9 ‘A, (SDATPT) 2 i . : 
634E 47 700 By A ; eee tee 
634F 3EOE 701 A, OEH. rs ees © ee 
6371  D3tS 702 (SADDPT), A ; ’ ; Gorge pete, 
6373 DBEFS 703 A, (SDATPT) : Se ae 
6375 9 4F 704 cA 
6374  SEQ7 705 A, 7 SET IODA CHANNEL 10 GUTPUT 
6378 D3FS 706 ’ (SADDPT), A 
637A  3E40 707 A» 40H 
4370 [I3F4 708 (SLATPT)» A 
637E  3K0E - 709 A, OEH 
6330 USFS . 710 (SALIDPT), A 
6292 AF 711 A 
G38 Dare 712 (SDATPT)» A 
6365 302 712 Ar 2 
6287 320060 714 (LOWNYH)» A $RESET NYBBLE STEEKING LOGIC 
438A 7B 713 ‘A, E 
622 7 714 (HL)» A. sWRITE LSN OF DATA Epo ight s 
6380  CB2F 717 OS a8 ee 
4336 CB2F 713 AZ emerenene A ee 
6370 CBEF og AES AT é abe 
6372 CBS 720 A ee see y ee 
6374 77 721 (HL), A SWRITE MSN OF DATA OY be ee Oe, Gar) eae 
46395 3E07 22 A: 7 RESTORE SOUND REGS ¥ Ps MOn e oe ee 
6397 DSFS 723 (SADDPT), A bo TY 
6399 78 724 Aa, B - 
439A DSFS 725 (SDATPT), A a ie 
6370 SEE 726 A, OEH Loa D ; 
629E  DSFS 72 (SADLIPT), A © (6S24 PUSH AF 
S200 7? 728 Aa. c ney cee See 
6301 DSF6 72 (SDATPT)» A LD AyD ; 
63A3° Fi 730 AF CP COO: BO be 
6204 77 731 (HL), A #RESTORE (HL) | Jee eres Sere ae. 
6205 Fi 732 AF ’ | : Oil ieee. be olen 
2A&  3200C0 732 (LOWNYB), A SRESTORE (QEQOOH) rae o ag 
63A9 El 734 HL SRESTORE REGISTERS Fo , 783 oe 
630A C1 735 BC : S eA 
63AB Fi 736 AF SEES EY 
43AC C9 737 RA SF 
733 | CM 6s 
737 3 : é Li pe" 
740 + READ_BS_REG (LSN_ADDR! LU, MSN-ADDR: Es BYTE_LIATA: E) Por AE 
741 3 ‘ : LC y 


DISPATCH PAGE 7 
Loc OBJ CODE M STMT SQURCE STATEMENT ASM 5.9 
742 ~«3 

63AUD FS 743 READ.BS_REG PUSH AF ISAVE REGISTERS 
43AE CS 744 FUSH BC 
63ArF ES 745 FLtsH HL. 
6350 62 746 LO H, 0 
631  Z2E00 747 LD L, Oo 3HL = MEMORY MAFPED ADDR 
63B3 3A00C0 743 Lo A, (LOWNYB) $SAVE (QE000H) 

6386 FS 749 FUSH AF 
6357 7E 750 Lo A» (HL) 3SAVE (HL) 

Gaus FS 751 PUSH AF 

3R9 E07 752 Lo a, 7 
65HH  0[3F5 753 QuT (SALIDPT),» A $SAVE VALUES OF SOUND REGS 7 AND E 
62BD OBFS 754 : IN A, (SLATPT) : : 
6SBF 47 755 Lo B, A 

6300 3EOE TEG LD A, OEH 
62c2 DearS 757 OUT (SADDPT): A 

63204 DFA 758 IN A, (SDATPT) 

63206  4F 759 Lo Cr A 
6307 C5 740 FLUSH AC . 
6308 B3EO7 — Tol LD A, 7 : $SET I0A CHANNEL TO OUTPUT 
63CA “DGFS Jee OUT (SADUPT), A . : 

63cc 3E40 763 : Lo A, 40H 
63CE. DSFS 7644 OuIT (SIATPT)» A 
630 BEOE 765 LD A, OEH 
6302 De@Fs Ths ‘QUT (SADLIPT), A 
6304 AF 767 xorR r) 

6305 [GSF6 « 768 a OUT (SIATPT),» A 
63U7 B3E02 769 Lo a 2 

6207 320000 770 “Lob (LUWNYB)» A SRESET NYBBLE STEERING LOGIC 
6200 7E 771 Lo A» (HL) sREAL LSN OF DATA 
6300 €40F 772 AND OFH 

630F  4F 773 Lo Cc, A 

G3EO 63 774 . Lo H, E 
6SE1 7E 775 LO A» (HL) ;READ MSN GF DATA 
G3E2 CE27 776 SLA A 

43E4 CB27 777 SLA A 

SEG  CH27 773 SLA ry 

63ES  CE27 779 SLA ra) 
63EA BI 780 . ar C 

62EB SF 781 Lo E, A 3RETURN BYTE DATA IN E 
6SEC Cl 782 POP; BC 

63E0  3E07 733 i LD A, 7 SRESTORE SOUND REGS 

6GEF DSF5 784 “WIT (SADDPT), A 

G3F1 7 735 e io A, B 
63F2 DSF4 786 : CUT (SEATPT), A 
63F4 3E0E 787 Lo A, OEH : 
G3F6 DFS 738 - QUT (SADDPT),» A 

63F8 79 7289 Lo a,c 

G3F9 DGEré 790 CIT (SLATPT)» A 

63FB Fi 791 FOP AF 

63FC (77 792 to (HL)» A SRESTORE (HL) 
63FD Fi 793 POP AF - : 

63FE 2200C0 794 : . LD (LOWNYB), A SRESTORE (QEQQ0H) 

6401 El 795 POP HL ;RESTORE REGISTERS 


6405 
406 
6407 
6403 
640A 
S406 
640E 
6410 
6411 
4413 


6415 - 


6416 
6419 
é4in 
641D 
5420 
6421 
4422 
6423 
6425 
4427 
642A 
4424 
6420 
4430 

. 6432 
L434 
6435 
6436 
6438 
643A 
6430 
643E 
643F 
6440 


6441 ° 


6443 
6444 
6446 
6447 
£4423 
644A 
644B 
6440 


DISPATCH PAGE 8&8 


OB! COVE M STMT SOURCE STATEMENT ASM 5.9 
C1 796 PUP BC 
Fi 797 For AF 
ce 798 RET 

799 4 

#00 3 
801 § GET_BANK_STATUS (BANK: B; STATUS *! B, HOKIZONTAL_SELECT: C) 
g02 3 
vi B03 ¢$ : 

FS : 804 GET_STATUS © PUSH AF 3SAVE SAVE REGS 
ns a05 PUSH De 
72 BOG Lo A, B 
FEFE 07 : cP OFEH : 
282) 808 ' UR Z, GS_EXT SIF BANK = 254 
FEFF So cP OFFH 
21D 810 JR Z» GS_HOME SIF BANK = 255 
A7 S11 AND rs 
2S1F 812 IR 2, GS_pock sIF BANK = 0 
1480 813 LO ti, BNA SHERE IF EXP. BANK 
58 314 Lo E, : 
CLSC63 S15 CALL WRITE_BS_REG 
1440 ¢ S146 Lo D, HS_LSN 
1ES0 ‘B17 Lo E, HS_MSN 
CDAUSS 813 CALL READ_ES_REG sREAD HS 
7B e119 LD Aa: E Btls 
2F 820 CPL ‘ 
AF 821 tos COA 
14A0 , S22 Lo D, STALL 
1ECO S23 LD E, STAG 
CLALGS B24 CALL READ_BS_REG sREAD STATUS NYBBLES : 
43 825 7 “op B, E i el “ 
1S1D 26 JR GS_EXIT Lo BA 
010000 827 - GS_HOME ) nn) —- BC, oO sRETURN O FUR HOME BANK STATUS 
1813 8238 IR GSLEXIT si 
Der 4 e297 GS_O0CK IN A, (OKHSPT) sRETURN DOCK BANK STATUS 
2F 230 CPL os 
47 B21 LD B, A 
CEO e322 Lo Cc, 0 
1810 632 JR GS_EXIT 
DEFF 834 GS_EXT - IN A, (HREXPT) 
E6s8o S25 ANI 80H sCLEAR ALL BITS EXCEPT BIT 7 
2F S34 CPL 
07 $37 RLCA $PUT ACTIVE LOW BIT IN BIT ZERO 
47 eg “LD B, A if 
DBF4 B39 e- IN A, (DKHSPT) 
2F 40 ; CPL 
E4O1 41 AND 1 
BO 842 OR 8 
47 842 LD B, A 
0E00 844 LD Cc, 0 
Di 845 GS_EXIT POP DE - $RESTORE D, C 
Fl B44 PoP AF 
ce 847 RET 

e4e 3 


3 


: 


DISFATCH PAGE 9 ; vere Da ee GPa net Hodes 
Loc OBJ CUDE M STMT SOURCE STATEMENT ASM 5.9 
S50 $ GET CHUNK (ADDR: HL’ MASK? A) Hie ged pty dots 
S51 3 
S52 3 : 
644D CS 53 GETLCHUNK PUSH BC 3SAVE B eee a ee 
644E 70 e54 LD A, H sCHUNK NUMBER = HIGH 3 BIIS OF i ae a Se a a 0 
6444 0605 855 Lo B, 5 + H SO SHIFT H RIGHT 5 BITS Edna 
6451  CBSF 254 GC.SHIFT . SRL A Hes es 
6453 _10FC $57 DhINZ GC_SHIFT fo cs 
46455  3C ess INC A iCREATE MASK RY ROLLING A 1 a are Eee 
6456. 47 g59 Lo B, A $ LEFT CHUNK NUMHER+1 TIMES. ; re eee Se 
6457 AF 860 xoR A $ THE 1 COMES FRUM THE CARRY : 
6453 37 861 a SCF 3 FLAG : 
4459 17 62 GCROLL - RLA ; 
645A 10FD 843 DJINZ GC_ROLL ' ate aa eee 
645C C1 S64 POP eo tRESTORE B : ; ae A ee a a 
6445p C9 265 ; RET ; st yous 
266 3 
G47 4 Y so on eee 3 
@6@ $ GET_BANK_NUMBER (ADDR: ‘Hus BANK NUMBER! A) | ‘ a eee 
S69 3. OF FF Mises Pegs 
; #70 5 ; ~ : 
645E ‘C5 _ 871 GET_NUMBER PUSH BC +SAVE REGS ; 
645F 1S 272 PUSH «DE os 
6460 cD4ne4 873 ; CALL GET CHUNK Ue Lo i) 
6463 aF-5S7 874 - LD Des A MBSE EOE IS LECRAE COTE 
64644 201563 875 LD - A» (BS_MAX_BANK)$GE1 LARGEST BANK NUMBER G 
6467 AT, S74 AND A ExT o TE age 
6468  280A)-25 277 JR Z, GN-RUCDOCK- sIF NO EXP. BANKS (i, 3 Ce" 
646 ar SF 873 LD EBA ; ME Ty, G ae 
646B i 74 879 GN_CHECK are +8——£.-B o> 4D. SSEARCH ALL EXP. BANKS Ya et ae 
6460 cbhose4 e800 > CALL GET_STATUS So Sg OY aoe 
646F AL ,s sai: AND oad or ae . 
6470 2eRa 19 8 eo2 JR Z, GN-EXP “FOUND: THE CHUNK, $0 EXIT Loop oe ta, 
G472 S3 DoNZ———GN=CHECK—--——__ a ee te 
6474 a “~~ 884 GNRD_DOCK IN Ay CDRHEPT) SNOT IN EXP. BANKS, 80 CHECK DOCK R a 
6476  2F eh CPL 15) G2 = RDF 
6477 -AL AQ O86 AND pee DB FF OW A, CHRE xP) 
6478 2318) 837 JR Z, GN_DOCK E680) ny ee bt 
647A ~OD— See —hEC—_—_-e—. $IF CHUNK > 1, THEN CAN’T BE IN EXT. 20 0 Re > a pp oce4uc 
647K ~2011— So? - RE +—GN=HOME— ‘ 7 7 2 sh z, S Ms alc ees Res4 F 
647D  DEFF 870 IN A, (HREXPT) |  $CHEUK IF IN EXT. BANK 08 Fe ww A, CDK SPT): 
G47F = E480 B91 ) ANU SOH ( AZ prld dD: ne 
641 57/ - 892 “ iD DB, A Ge ee een ada 
6482 DBF4 S93 e | IN Ay (DKHSPT) | a 20 <2 DR WZ, EV-HOME (o 16BP 
6484 E401 - a4 * / AND 4 /~ SE FE TLD 1, Oren 
64286 OF 95 | RRCA ie | ‘i we IA TR OCV-EXIT/ Gye 
6487 A2 | a26 \ AND D ; a ee 
6483 (2804 897 \ JR Za GNLHOME ( sNOT IN EX?. BANK 
648A / SEFE. avs mo. ‘Ay OFEH’ | 3IN EXT. BANK, SO RESURN 254 
e4ac / 1808. BoP . Lid ss GNLEXIT____-4 
64e— ~ 3EFF 900 GN_HOME Lo ‘A, OFFH SIN HOME BANK, SQ RETURN 255 
6490 1804 . 901 JR GN_EXIT 
6492 AF 902 GN_DOCK XOR A. sFOUND CHUNK IN DOCK, SO RETURN 0 
6493 1801 $03 JR. GNLEXIT : 


DISPATCH PAGE 10 


Loc OBJ COVE M STMT SOURCE STATEMENT ASM 5.9 ‘4 
. : 4 : Y a nat 
4495 ~/e 7 904 GNEXP Lo Aa, é SRETURN EXP. BANK NUMBER: 
6496 Di 905 GN_EXIT POP DE SRESTORE REGS 
5497 C1 DOS PCP BC 
6498 C9 907 RET 
POS 3 
907 3 
910 $ BANK-ENABLE (BANK: B, HURIZONTAL_SELECT: C) 
911 $ 
912 3 
5499 FS 913 BANK ENABLE FLUSH AF 3SAVE REGISTERS 
649A C5 914 : PUSH BC ; 
649R ° OS 915 PUSH DE . rf 
6490 ES 916 ' PUSH HL. 
6490 60 917 ee Lo H, B 
“S49E 2A1563 919 Lo Ay (SS_MAX.BANK)3GET LARGEST BANK NUMER Re os ne , 
64AL = A7 919 AND A ao Bod Ven se, ia 
6402 2811 92 JR Z, BELSKIP 3IF NO EXP. BANKS . ace ee eee 
6404 1480 921 Lo Ti, BNA ; oe 
64A&  1E00 922 LD E, 0 
6403 CDSC463 923 "ALL WRITE_BS REG 
S4AB 14600 - 724 Lo D, HSP 
64AaD FS 925 FUSH AF A ae 7 
640E /9 P28 "LD A, , og Sota ras 
64QF § 2F _ 927 CFL ‘ mee a 
6480 | SF 928 - LD E, A 
G4BL Fi 929 Por AF : 
S482 CHSC43 , 930 = CALL WRI SE_BS_REG sTURN QGEF APPROPRIATE 8113S OF , 
931 ; $ ALL EXP. BANKS , a, 
6455 78 932 BE_SKIP Lo Aa. B . A Bg Ry oh ES oie 
64B5 A7 933 AND A ae ; 
6467 2011 24 JR NZ, BE_NTDUCK , 
64B9 79 . 935 Lo ac 
64BA FEFF 934 CP OFFH 
44BC 2806 927 an Z, BE_EXT_OK 
é4BE  OSFF WR IN A, (HREXPT) SHERE FUR DOCK 
6400 CHEF 939 RES 7 A ae 
64C2  DGFF 940 QUT (HREXPT), A eu 
6404 79 941 BEWEXT.OK Lo a,c . 
S405  2F DAZ CPL ; 
4406 DSF4 -  94R ou (DEHSPT)» A sENABLE DOCK 
6408 184F 944 AR: - BELEXIT 
6400 78 945 BE_NTDOCK LD Aa. B sCHECK IF EXT. : 
44CB FEFE 946 cp OFEH ! 
64CD 201D 947 eK NZ, BELNTEXT 
64CF  DSFF 943 * IN Ay (HREXPT) SHERE FOR EXT. 
6401 17 $49 RLA 
6402 CBI? 950 - RR c 
6404 23F $51 CCF 
6405 iF 952 RRA 
6406 LSFF 953 OUT (HREXPT),» A 
4408 CR7F | 954 BIT 7A 
640A 2008 955 JR NZ, BE_SET 
640C DBF4 954 ‘IN A, (COKHSPT) 


64DE CbhS7 957 RES Oo, A 


MISPATCH PAGE 11 


Lac OB! CODE M STMT SOURCE STATEMENT ASM 53.9 
64EQ DSF 4 953 our (LIEHSPT)» A , 
64E2 18235 959 : ‘ JR BE_EXIT re \ 
44E4 DBF 4 940 BESET 70 IN A, (DKHSFT) 
64EG CBC7 P41 SET Oo, A 
64ES [03F4 | $62 ; 71 OUT (DKHSPT)» A 
&4EA 162D 963 JR | BELEXIT 
é4EC DEF4 - 964 BENTEXT 7) IN A, (DEHSPT) SDISABLE DOCK 
64EE 2F PES YE CPL 
6é4EF SF P46 LD E, A. 
64FO 7? S&7 OLLo Aa, ¢ - a ‘ 
64F 1 2 963 rr CPL 
64F2 B23 P42 Fr OR E 
‘64F3 2 970 : oCFL 
64F4 D3F4 S71 3 OUT (DEHSPT)» A 
S4F6 CH41 P/2 BIT oO, Cc °- 
64F8 2000 273 a AR NZ, BE_CHK HOME 
S4FA DBFF 274 —- IN Ay (HREXPT) sDISABLE EXT. 
&4FC CBEF S75 F RES 71 A 
64FE DSFF 976 OUT (HREXPT)» A 
6500 DEF 4 977 : OIN ~ Ay (DKHSFT) 
4502  CHS7 978 RES a A 
4504 D3F4 79 ) OUT (DEHSFT)» A ‘ 
6306 73 : 730 BE CHK HOME Lo A, B sCHECK IF HOME 
6507 FEtF S31 cP OFFH 
6509 230E cia JR Z. BEEXIT - $15 HOME, SO DONE 
. 6508 1430 983 LD D, BNA 3WRITE NEW EXP. BANK STATUS 
4300 S23 ' 34 Lo E, B ' Miko Aba om Oy Le 
650E COSC43 PES CALL WRITE_BS_REG Poe ee) ; 
6711 1640 PSS Lo 0, HS 
6513 72. 9E7 Lo A, C 
6514 2F 938 ; CPL 
6515 SF 9389 LD E, A 
6516 COSCE3 | IPO CALL WRITE_&S_REG ; 
6319 El 991 BELEXIT POP HL SRESTURE REGISTERS 
651A D1 VIZ PoP DE ; ogee os 
451 C4 99S FOP BC 
651C Fi DHA POP AF 
6510 ce O75 RET 
VIA 3 
S97 3 
92 $$ SAVE_BANK_STATUSES (SIATUS_ADDR: IX) 
999 § : 
1000) ¢ PUSHES THE STAIUS OF ALL BANKS GON THE STACK 
19001 § : 
1002 $5 ‘ : ; 
6516 FS 1003 SAVE_STATUS FUSH AF . 3;SAVE REGS 
6S1F cs 1004 PUSH BC 
6520 oS 1005 PUSH DE 
6521 DEFF 1004 IN A, (HREXPT) SSAVE EXT. BANK STATUS 
6523 fel) 1007 . NOP ;LEAVE BITS O-& ALONE! NOPS PUT -IN 
6524 ao 10083 NOP 5 YO KEEP ADDRS THE SAME 
6325 DD7700 - 1009 Lo (IX), A 
6523 Do23 1019 INC Ix* 


632A DBF 4 1011 IN Ar (DKHSPT) 3GET DOCK BANK STATUS 


a 


Loc 


6520 
6S2F 
6531 
6534 
6535 
6537 
6538 
6539 
4530 
653 
6541 
6542 
. 6544 
6546 
6547 
6543 
6549 


654A 
4545 
' 6540 

4 454) 
6550 

7 6552 
6554 

4557 

% 6559 
é55B 
655E 


> GSSF ° 


6561 
6542 
) 4545 
6548 
654A 
) 654C 
656E 
654F 
6570 
6571 


OB! CODE M SIMT 


DO7700 
DD23 
2A1LS43 
A7 
2300 
47 

bated 
CHOS64 
007100 
nn23 
43 
10F4 
OnZB 


FS 

Cs 

0s : 
DL/EQO 
D3FF 
noe 
0LDN7E0O 
DSF 4 
Do23 
SA15463 


1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
102 

1021 
1022 
1023 
1024 
1025 


» 1024 


102; 
1028 
102 
1030 
1031 
1032 
1033 
1034 
1035 
10:34 
1037 
10738 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1044 
1047 
1048 
1049 
1050 
1081 
1052 
103% 
1054 
1085 
1054 
1057 
1053 
105% 
1040 
1041 
1962 
1043 
10464 


© 1065 


DISPATCH ; PAGE 12 
SOURCE STATEMENT Asn 5.9 
Lo (IX), A 
INC IX 
Lo A, (BS_MAXBANK)$GET NUMBER CIF BANKS 
ANU A 
JR Z, SS_LEXIT 
Lo BL A #SET UP COUNTER : 
$S.LOOP Lo E, B SBANK NUMBER INTO E 
CALL GE1 STATUS ;GET BANK STATUS OF BANK #B 
Lo (IX), C : 
INC Ix 
, DJINZ 'SS_LoGr 49 FOR ALL 
SS.EXIT DEC IX 
POP DE . . SRESTORE REGS 
POP BC 
FOP AF 
RET 
; 
? ti 
3 .RESTORE_BANK_STATUSES (STATUS.ADDR! Ix) 
; 
$ RESTORES BANK STATUS TO ALL BANKS 
? 
7 
RESTORE.STATUS FLUSH AF ’ $SAVE REGS 
PUSH BC 
FLUSH LE 
Lo ‘As CIX) 3GET EXT. ROM STATUS 
OUT (HREXPT), €@ 
INC IX 
Lo A, (IX) . $#GET DOCK BANK STATUS 
GUT (CKHSPT), A 
INC IX 
LD A, (BS_MAX_BANK)SGET NUMBER OF BANKS 
AND rs) i 
UR 2, RS.EXIT 
Lo BA. 3SET UP COUNTER 
RS LOOP LD C, (IX) 
CALL BANK_ENABLE SWRITE BANK STATUS OF BANK #b 
INC Ix 
DWINZ RS_LOOP 3DO FOR ALL 
RS_EXIT : bec IX 
PoP DE tRESTORE REGS 
® FCP BC ; 
x FOr AF 
RET 


we ve we we os ws we us 


GOTO_BANK (BANK, HORI ZONTAL_SELECT, ADDR: PASSED ON STACK) 


SETS UP THE DESTINATION BANK ANU JUMPS WITHOUT RETURN TO ADDRESS 
IN BANK, : 


ay 


a 


DISPATCH PAGE 13 
Loc OBJ CODE M STNT SGURCE STATEMENT ASM 5.9 
1064 3 
4572 0210000 1067 GOTO BANK Lo IX, 0 s$SET IX To SP 
6576 DESe 1048 ADD IX, SP 
4578 D07100 10467 Lo (IX), ¢ 'SAVE BC AND TRASH REI ADUR 
6578 DE7001 . 1070 Lo (IX+1), 4 
457E DD4EO2 1071 Lo Cy (IX+2) 3GET PARMS FOR BANK_ENABLE 
6581 pb4603 1072 Lo B, (1IX+3) 
6534 CD94 10723 : CALL BANK ENABLE 
S887 C1 1074 POP BC SRESIORE BC 
6582 [DEL 1075 POP IX #TRASH PARMS TO GOTO_BANK 
658A DDEL 1075 PoP IX 3GET ADDR 
65sec DDE? 1077 JMPIX . uP (IX) 
1078 3 , 
10797 3 : 
1080 $ CALL_BANK (AUDR, BANK, HORIZONTAL_SELECT, PRM_OU1, PRM IN) 
1081 3 ALL INPUT PARAMETERS AKE PUSHED UN THE STACK 
1032 3 : 
1083 3 CLOBBERS Ix 
1084 3 
10385 3 
1086 3 SETS UF THE BANK AND MAKES A JUMP WITH RETURN ADURESS TO ADDRESS 
‘1087 3 IN BANK. : 
1088 +3: 
1089 3 . 
6536 1070 BS STACK DEFS 64 ’ 
65CE 1071 BS_SP EFS 2 
j 1072 
1093 3 7 , 
6500 E32 1094 CALL_BANK EX (SP). HL 3GET RET ADDR 
6501 DOZACE6S 1095 "Lo IX, (BS_SP) 
6505 Doze 1096 DEC | IX 
6s7- TII'74.00 1097: Lo (IX), H 
65UA DOSE 1093 DEC IX 
6500 cu/500 1099 ; Lo (IX) Lb sPUSH HL CIN BS_STACK 
65F°  E1 1100 For HL ; 
65EQ0 ES 1101 EX (SP), HL $GET PRM_IN 
65E1 DO2B 1102 DEC IX 
65E3 007400 1103 Lo (IX)» H 
65E4  LO2E 1104 . peo IX 
46568 DO7500 1105. Ln (IX), Lb 3PUSH PRMLIN ON BSZSTACK 
65EB D022CE645 1104 Lo (BS_SP), IX © ‘sUPDATE BS_SP . 
65EF DS 1107 PUSH QE $SAVE REGS 
'65FO CS 1108 “PLUSH BC 
65FI FS 1109 ® PUSH AF 
65F2 210000 1110 ‘ Lo HL, oO 
65F5 = 3 1141 ALE HL, SP 3HL = SP 
65FG 54 1112 LD D, H 
65F7 SD 1113 : 4 LD fb 
65F& 3A1563 1114 \ Lo A, (BS_MAX_HANK) 
65FB 4F 1115 zi Lo c. A . 
45FC 0400 1114 Lo B, O 
65FE 03 ‘1117 INC BC 
65FF O03 1118 ; INC BC 3BC = MAX_BANK + 2 
£600 AT 1119 AND A 


Loc 


4601 
E603 
6604 
£608 
660A 


&é60B 
640E 
6614 
£613 
6614 
6615 
617 
6618 
661A 
6615 
4610 
£620 
6624 
&426 
6h2F 
662 
662F 
S&30 
6631 
6632 
6633 
6635 
bb 347 
6639 
6630 
6620 
642E 
&63F 
6440 


bb44 ° 


6647 
E449 
6640 
&64E 
66452 
S655 
6455 
6654 
665B 
6450 
6645E 
645F 
6661 
6443 
&464 
6665 
6463 
646A 


DISPATCH 


OBJ CODE M STMT SQURCE STATENENT 


ED42 

FD? 
0D210000 
oObAy 

ER 


DI4EOS 
DD4608 
SEOE 
a1 

4F 
3004 


n0210000 
Dns? 
DDAEOA 


- BDD460B 


CLP964 


FS 


DD2ZACESE5S 
DD4EOoO 
Du23 
no4400 
0n23 
ON22CE4S 
0D210000 
Dns ° 


CD4A65 
DDES 
D1 


1120 
1121 
1122 
11z 

1124 
1125 
1124 
1127 
1128 
1129 
1130 
1131 
11:32 
11233 
11234 
1135 
1134 
1127 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1154 
1157 
1159 
1159 
1140 
1141 
11462 
11423 
1144 
1145 


CB_NC1 


CB_NC2 


PLISH 
PUSH 
PUSH 
FUSH 


HL, BC 
SP, HL 
IX, 0 
IX, DE 
DE, HL 


PAGE 14 
ASM 5.9 


$DE, HL NOW CONTAIN DEST, SRC 
§ POINTERS FOR A BLOUK MOVE ~ 


Cy (IX+PRM_OUT)—~ 


B, ¢IX+PRN-OUTY*® 


A, 14— 
A, c 

C, A 

NC, CB_NC1 


SAVE_STATUS 
IX, 0 
IX, SP 


~ Cy (CLX+HOR SEL) 


B, (IX+BANK) 
BANK-ENABLE 


IX, (BS.SP) 


C, (IX) 


Ix 


(BS_SP), IX 
IX, @ 


HL 


RESTORE STATUS 


Ix ° : 
DE 


$BC = PRMLC'IT + 14 
iMAKE ROOM FOR BANK STATUS 


s1X = DE 


“GET PARMS FOR BANK ENABLE 


SENABLE DESTINATIUN BANK 
sRESTORE REGS 


3TRASH PARMS TO CALL_BANK ANU GET ADDR 


sCALL ADDRESS IN IX 
SSAVE REGS 


sPOP PRM_LIN OFF BS STACK 
sUPDATE BS_SP- 


sBC = PRMLIN + 8 


sIX = SP + PRMLIN + 3 
sHL = IX 
3HL = SRC POLNTER FOR BLOCK MOVE 


sKESTURE- STATUS OF ALL BANKS 


30E = DEST POINTER FUR BLOCK MOVE 


ae. ae 


DISPATCH PAGE 15 


Loc GB CODE M STMT SOURCE STATEMENT ASM 5.9 
6648 EDBS 1174 LODR SDEALLOCATE SPACE FOK BANK S1ATUS 
666D EB ATS EX UE, HL 
b66E 1176 INC HL 
b66F FO 1177 . Lo SP» HL SRESTORE SP 
6470 DOZACE6S 1172 Lo: IX, (BS.SP) 
6674 Lo4EOO 11/9 Lo C. (IX) 
6677 DD23 1180 INC 1x 
6679 Dn4soo 114 Lo B, (1X) 
6670 DZS ez INC 1X sPOP RET ADDR OFF BS_STACK 
667E OUZ2CE6S 1183 Lo (BS_SP), IX sUPDATE BS_SP 
6682 Cy 1164 PUSH BC 
648% DDEL 1125 PUP IX . 
6685 E14 1186 POP HL. +RESTORE REGS 
bbs wt 1187 FOP NE 
6427 C1 1183 POP BL 
6688 Fi 1189 POP AF 
6689 DDES 1190 . PUSH IX sPUT RET ADDR ON STACK 
'668B C9 1191 RET 
1192 3 
1193 3 ont Se F 
1194 3 HERE ARE SOME EQUATES WHICH ARE USED BY XFER_BYTES AND THE ROUTINES IT 
1195 3 CALLS. 
1196 $ 
1197 DIRECTION Eau fC) 
1198 BUF_LPTR EQU oO 
1199 LENGTH Eau 2 
; 1200 DEST_ADDR Eau 4 
1201 SRKC_ADDR Eau 6 
1202 DEST BANK "Eau 8 
1203 SRC_BANK Eau 9 
1204 $ 
1205 3 “ 
1206 $ MOVE_BYTES (BYTES_TO_MOVE: DE, DIRECTION : A) 
1207 3 
1208 3 
6680 ES 1209 MOVE_BYTES: PUSH = HL +SAVE REGISTERS 
6680 D5 1210 PUSH DE 
668E C5 1211 FUSH BC 
64uF 48 1212 Lo c, B 
6690  DD4609 _ 1213 Lo B, (IX+SRCLBANK) 
6693  CDvP64 1214 . CALL - BANK_ENABLE | $SELECT SRC BANK 
6696 42 1215 Lo B, D +MOVE FROM SRC TO STACK 
6497 4B 1216 Rae: CxJE 
6698 DDSEOO 1217 e LD E, (1X+BUF_PTR) 
4698 DDS6O1 1219 . Lo D, (1X+BUF_PTR+1) 
669E  DDGEOS6 1219 Lo L, (IX+SRC_ADDR) 
6401  DILI6607 1220 . - Lo H» (IX+SRC_ADUR+1) 
6404 07 1221 RLCA 
66A5 OF 1222 RRCA 
6606 3805 1223 JR C, MB_RV1 SIF ACO 
4608  EDBO 1224 LDIR 
640A 09 1225 ADD HL, BC s INCREMENT POINTER 
66AB 1805 1226 . JR MBLUPL | 


66AU EDBS 1227) MBLRVLi LODR 


J : 


« 
Loc 


S6AF 
46B0 


' 642 


&6B5 
S483 
S459 
GEBA 
&$BB 
64B 
&&BF 
6602 
&6C3 
E64 
&6C07 
ééCA 
46D 
6400 
6601 


6602 


é604 


G4046 - 


6407 
64D9 
6608 
64600 
640E 
66E1 
&6E4 
64E5 
&6E6 
646E7 


46E3 
&6E9 
&6EA 
ééED 
4S4FO 
64F3 


-6LF4 


66F5 
6&F7 
66F8 
66FA 
64FC 
6LFF 


- 6700 


&701 
£702 
6705 
6706 


OB. CODE M STNT SOURCE STATEMENT 


A7 
ED42 
DO7S06 
DD7407 


cs 
004408 
CIYV964 
44 
40 
DDSEO4 
DNS405 
DN4EOO 
D06401 
O7 
OF 


54 
ba I) 
DD4EO2 
Dn4403 
DD7E0oO 
07 


1228 
122° 
1230 
“1251 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1229 
1240 
1241 
1242 
1243 
1244 
1245 
1244 
1247 
1242 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1254 
1257 
1258 
1259 
1240 
1241 
12462 
1263 
264 
1265 
1264 
1247 
1248 
1249 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1230 
1291 


DISPATCH 


MB.UP1 


MB_RV2 


MB_UP2 


5 
3 
3 
5 
i 
CREATE BITMAP 


CB_SUB 


. CB_CONT 


CREATE_BITMAP (ADDR:. 


CALL = GET CHUNK 


PAGE 14 
ASM. 5.9 
A. 
HL, BC ;DECREMENT POINTER 


CIX+SRC_LADDR), L sSTORE NEW POINTER VALUE 
(LX+SRCLADDR+1), H : 
BC 


B, (IX+DEST_BANK) 

BANK ENABLE 3SELECT OEST BANK 

B, H 3MOVE FROM STACK 10 DEST 
E, (CIX+DEST_ADOR) 

D, (1X+DEST_ADDR+1 ) 

Ly (IX+BUF_LPTR) 

Hy (IUX+BUIF_LPTR+1) 


Cy MBLRV2 IF A<O 

HL, BC . SINCREMENT POINTER 
MB_UP2 

A 

HL, BC” ;DECREMEN) POINTER 


CIX+DEST_ADIR), Lo sSTORE NEW POINTER VALUE 
CIX+DEST_ADUR+1), H 


.BC SRESTURE REGISTERS 


DE 
HL. 


HL$ BITMAP? A) 


0, H 7SAVE START ADDR 


C, (IX+LENGTH) 
B, (IX+LENGTH+1) 
A. CIX+DIRECTION) 
HCALCULATE END ADDR 


C, CB_SUB sIF A<O 

HL, BC 

CB_CONT 

HL, BC 

sGET END CHUNK EIT 


RB, A 
DE, HL ; 
GETWCHUNK - $§GET STARE CHUNK BIT 


Gc A 


DISPATCH PAGE 17 
OBJ CODE M STMT SOURCE STATEMENT ASM 5.9 
8 XOR B 
2814 JR Z, CB_EXIT 
79 Lo A, Cc *HERE IF STAKT AND ENC CHUNKSU 
ao ANE! B 3 AKE NOT THE SANE 
47 Lo B, A sPUT START ANLI END BITS TOGETHER ANU 
QE00 LD Cc, 0 + FILL IN BTEWEEN THEM WITH ZEROES 
37 C 
18 CB_NBI LD A, B sTEST NEXT BIT 
CB11 RL c 
Al ANE! c 
- 20FA JR Nz,» CB_NBI SOIHERWISE, FOUND FIRST ZEKO 
738 CB_NB2 LD A, B sTEST NEXT BIT ; 
CB11 ' RL c 
Al AND c 
2804 JI Z, CBLEXIT +FOUND LAST ZERO 
Ag XOR B FQTHERWISE, WPDATE BL TMAP 
47 1298 LoD B, A 
18F 6 1299 JR CB_NB2 
78 1300 CB_EXIT LD A, B SRETURN BITMAP 
co 1301 RET : 
' 4302 3 
1303 5 
1304 + XFERLBYTES (DIRECTION, LENGTH, DEST_ADDR, SRC_ADDk, DEST BANK, 
1305 3 SRC_BANK! PASSED CIN STACK IN ORDER SHOWN; STATUS_CODE: A) 
1306 + ; 
1307° 3 ALL PARAMETERS ON STACK HAVE OFFSETS DEFINED ABOVE. 
; 1308 + 
1309 3 : 
FS 1310 XFER_BYTES PUSH = AF +SAVE REGS 
cs 1311 PUSH BC 
DS 1312 PUSH = DE 
ES 1313 PUSH HL 
210000 1314 Lo HL, oO 
39 1315 ALD HL, SP 
110A00 1314 Lo DE, 10 
19 1217 ALD HL, DE 
EB 1z18 EX DE, HL sDE POINTS TO START OF PARMS 
FA1S43 1319 Lo A, (8S_MAX_BANK) 
4F 1320 LD cA 
0400 1221 LD B, O 
210000 1322 LD HL, © 
37 1323 ADL HL, SP 
a7 1324 ~ AND A. 
ED42 132! e SBC HL, BC 
2B 1326 : DEC HL 
2B 1327 DEC HL sHL = SP - MAX_BANK - 2 
ES 1328 PUSH = HL 
DDE1 1229 PoP IX $1X POINIS [O LOCATION TO SAVE STATUS 
DoF 1330 Lo SP, IX 
CHESS 1331 CALL  § SAVE_STATUS SSAVE BANKS’ STATUS 
DS 1332 PUSH DE 
ODE 1 1323 POP ik $1X NOW POINTS .TO FARMS 
LDGEOS 1334 Lb L, (IX+SRC_ADDR) 
D607 1325 LD Hy. (IX+SRC_ADDR+1 ) 


DISPATCH : PAGE 18 


Loc GBI CODE M STMT SQURCE STATEMENT ASEM 5.9 
674F CIEGS4 1334 : CALL CREATE.BITMAP 3GET SRC BITMAP Mae be ate asa : 
6752 FS 1337 FLUSH AF SSAVE UN STACK TEMPORARILY ee 
4753 TWIGEO4 1338 Lo L» (IX+DEST_ADDR) 
4756 L4605 1337 Lo H, (IX+UEST UALR 1) 
67597  CLIESSS - 1340 CALL CREATE.BITMAF $GET DEST BITMAF fi ea 
6750 4F 1341 Lo CA sC = CEST BITMAP AAA © isla 
4750 Fi 1342 POP AF 
&75E 47 1343 Lo BR, A 3B = SRC BITMAP 
675F  UD7EO? 1344 LD Ay (IX+SRC_BANK) 
4762 DDSE0e 1345 Lo D. CIX+CEST BANK) 
6745 BA 1246 : cr if) SCOMPARE SRC AND DEST BANK NUMBERS 
&764° 2005 1347 wR NZ. XBUDIFF BANKS ' 
&763 78 1348 a Lo a. B ' $HERE IF BANK NUMBERS ARE DIFFERENT 
6769 AL 1349 AND c 
47640 47 1250 ; Lo B, A 3B = UNION OR SRC AND DEST BITMAPS ae 
6768 «1808 1351 JR XB..DO_MOVE 
6760 78 1352 XBUDIFF_BANKS LD A. B $CHECK FOR OVERLAP BETWEEN SRC AND 
S7SE BL 1353 . uR c i $ DEST CHUNKS 
‘676F  FEFF 1354 cP OFFH : 
4771 = Bozn 13585 : ; IR ~ NZ, XBUOVERLAP 
4773 : 5S 1354 Lo E, B - $HERE IF NU OVERLAP 
S774 2 357 . Lo B, OD : 
6775 — CLPY64 1358 CALL BANK ENABLE $SELECT DEST BANK 
$77& pDn44o9 12597 XB_LDOLMOVE LO B, (1X+SRC_ BANK) 
677B > 48 1340 Lo OE 
6770 = CHY964 12610 CALL BANK ENABLE $SELECT SRC BANK 
677F = DEIGEOS: 1362 Lo Ly CIX+SRC_ADDR) 
4782 DD4407 1362 Lo Hy CIX+SRC_ADDR+1) 
6735 fOSEO4 13464 Lo. E, (1X+DEST_AUDR) 
6788 ODOS6O08 — 1365 Lo D, (IX+DEST_ADOR+! ) 
6788  =DN4EO2 13446 LD CG, CIX+LENGIH) 
678E 14403 1247 Lo B, (CIX+LENGTH+2) 
4791 DOZ7EOO 1243 Lo Ay CIX+DIRECTION) . 
S794 07 13469 RLICA 
4795 OF 1370 " RROA 
4794 9 3804 1371 JR Cy, XBLREVERSE 3IF A <0 
6793 EDRO 1372 LOIR ; eo vt 
&77A 1852 1372 JR XBLEXIP 
679C = « EDIBS _ 1374 XB_LREVERSE LOOR 
679E 184 1375 JR “ XBLEXIT 
47A0, 8Z1C0sC 1374 XB_OVERLAP Lo HL, MSTBOT 
6/A3 CS 1377 PUSH BC . 4 
&7A4 OSE F 13738 Lo B, 255 
S7A& CI1663 ®* CALL . GET_WORD 
67A2 C1 ; : FOR BC 
_ &7AA 110002 LO DE, STKS2 
47AU OAT AND A 
6/AE EDSe SEC HL, DE sHL = ADDRESS OF STACK. LIMIT 
G7BOQ — 112000 LO DE, FREE_BYTES 
S7ES 19 ADL HL, DE 
67H4 EB EX DE, HL | $0 = SP_NEW 
&7B5 210000 - Lo HL, 0 
&7BB = 39 1383 AnD HL.» SP : sHL = SPLOLL 


67B9 13 1359 INC vE sCOMPARE SP.0L0D WItH SP_NEW 


_¢£ 
Loc 


67BA 
&7BB 
478D 
&7BF 
6701 
&7C3 


6704 


6705 
&74 
6707 
67CA 
6/7CD 
6710 
&703 
4706 
&707 
4709 
670B 


&70E. 


&7EO 
&67E1 
67E2 
67E5 
&/ES 
&7EP 
&7EL 
é7ED 
&7EE 
&7EF 
&7F3 
467F5 
4S/FS 
. &7EA 
 &7Fe 


4S7FD | 


&7FE 
&7FF 
4300 
4302 
£504 
4506 
6503 
“480A 


680C° 


630E 
6310 
6812 
6314 


DISPATCH 
OBJ CODE M STMT SOURCE STATEMENT 


A7 1390 ANDI 
EDS? 1371 io SEC 
2004 1372 dR 
SEO1 1293 LO 
1828 0 4 JR 
1B 1395 XB_SPACE CEC 
EB 1396 EX 
Fo 1397 es Lo 
12 1393 INC 
DD7E0O “1g99 LD 
DD7500 1400 Lo 
DN7401 MAO ae YS LD 
DNGEO2 1402 Lo 
DDS4603 1403 Lo 
A7 (1404 XB.MOVE.LOGP = AND 
EDS2 1405 SBC 
3805 1406 . JR 
CHSCéS 1407 CALL 
18F6 140% UR 
19 1409 XB.LAST_MUVE ADD 
EB 1410, EX 
COSCS6 1411 : CALL 
EB 1412, — EX 
DNGEOO 1413 Lo 
LDS404 1414 Lo 
19 1415 ALD 
Fo, 1414 LD 
AF 1417 XBLEXIT . 
DDz10000 =: 1418 Lo 
DUS? 1419 - ADD 
co4A6s 1420 CALL 
nD23 (1421 - INC 
DLFS 1422 Lo 
E1 1423 FOP 
D1 142 FOP 
C1 1425 PCP 
Fi 1426 Por 
DDE 1 1427 Pup 
DOES 1428 <a . EX 
DUEL 1429 POP 
DDE 14:30 EX 
DWE 1 ‘1431 Fup 
DDE3 (1432 “EX 
DDE1 1433 0 = POP 
DDE 1434 , EX 
DDE1 1435 FOP 
DoE 1424 EX 
co 1437 RET 

1438 3 

1439 3 

1440 3 GOIO_EXT_INIT, (ADDR: 

1441 3 

1442 3 - 
LWEL 1443 GOTO_EXT PoP 


XOR: Al fas ce. 


PAGE 19 

ASM 3.9 
‘ oe 
HL» ne ; ci 
NG, XBUSPACE SIF SPLOLD - SPLNEW > O 
Aa, 1 SRETURN ERROR CODE 
XBLEXIT 
DE \ 
DE, HL vit 
SP, HL SSET SP TQ SP_NEW | 
DE 7DE = BUF_SZ 


SHL = BUFLPIR: 
,SSAVE BUFLPTR ON STACK ,, 


A, (CIX+DIRECTIUN) 
CIX+BUFLPTR), Lb 
CIX+BUF_LPTR+1). H 
L. (IX+LENGTH) 

H, (IX+LENGTH+1) 
Aa sHL = 


Gol cy i tiffs vo dog t 


: BYTES LEFT 10 MOVE, = ,, ‘ 
HL, WE ;DE = BYTES TO MOVE [HIS TINE 

C> XB-LAST-MOVE $IF LESS, THAN BUF_SZ BYTES LEFT , 

MOVE_BY FES iS 
XH_MOVE_LOUP , a? 
HL, DE ‘ 
DE, HL- g 
MCIVE_ BYTES 

DE, HL 

L> (IX+BUF_PTR) 

Hy CIX+BUF_PTR+1) : 

HL, DE 3HL. = BUF_PTR+BUF_S 

SP, HL sRESTORE STACK POINTER . 

SRENURN CODE FUR SUCCESSFUL COMPLETION 


4 


IX, 0 
IX, SP 


RESTOKE_STATUS }RESTORE STATE AND RETURN ZERO COVE 


HL | RESTORE REGS 


IX ;CLEAN UP PARMS 


HL) 


Ix . #TRASH RET ADDR 


1444 


1445 
14448 
1447 
1448 
1449 
1450 
1431 
1452 


DISPATCH 
OBJ COVE M STMT SOURCE STATEMENT 


FUSH 
IN 


PAGE 20 
ASM 5.9 


AF 
Ay (HREXPT) 
7, A 


’ CHREXPT), A 


Ar 1 
(DKHSP1)» A 


ben 


FIXTEL PAGE i 


Loc OBJ CODE M STMT SOURCE STATEMENT . ASM 5.9 ng ¢ 
1 #PAGESIZE 54 
2 2 
3 DISFATCH EAU 6200H 
4 INT Eau &2AEH 
5 GETUWORD Eau 63146H 
& FUT_LWORD Euu 6338H : 8 
7 GET STATUS Eau 6405H ind ; we agit e 

, 8 GET_NUMNBER Eu 645EH : Dba Seat aS 

9 BANK_UENABLE EQu. 6499H 
10 SAVE_LSTATUS EQU é51EH 
11 RESTORE_STATUS EAU 6540H 
12. BS_STACK Eau 658EH : 
13 BS_SP . Eau 45(CEH 
14 GOrO_BANK EGU &572H ‘ 
15 CALL_BANK Equ 45D0H et am oe 
14 MOVE_BYIES EQU 668CH nee ees omens 
17 CREAIE.BITMAP EQU 66ESH ‘ 
18 XFER BYTES EGU &722H " 


20 § HERE IS THE FIXUP TABLE FOR THE VIDEO MOVE CHANGER. IT DEFINES THE te aries ES 
21 3 LOCATIONS IN RAM WHICH MUST -BE UPDATED WHEN MOVED FROM CHUNK 3 £0 CHUNK 7 a ; fee ee 
22 $ OR VICE-VERSA. THE ADDRESSES IN THE TABLE ARE DEFINED AS CHUNK 3 ALDRESSES 


23 

inoo 25 ORG 1D00H . : ® 
; 246 . . \ 
, 27 : 

ipoeo $262 23 FIXTBL DEFW DISPATCH+32H 
Ihez 4062 29 nEFW DISPATCH+40H : 
1004 7262 30 * DEFW DISFPATCH+72H : a 
1D AB42 1 ; DEFW DISPATCH+O0ABH . . i 

32 - 

. bes BE62 - 33 DEFW INT+OAH 
— 1noOA C462 34 : . DeFW INT+1FH 

inoc ° D342 © 25 DEFW INT+25H 
1DOE 0cé62 34 DEFW INT+2EH 
ipio FR42 37 ; DEFW INT+40H 

3g ; 
1Di2 1A43 39 . DEFW GET_WORU+4H . : sigs f ce er ae 
1014 2063 40 DEFW GET_WORD+0AH . ; eign ded: 
1014 24463 41 DEW GET_WORD+0EH : : . : pee ge pe 
1nis 2A4S3 42 DEFW GET_WORD+ 14H ; 
‘DIA 2543 43 ” DEFW GET_WORKD+1FH 

: 44 ® 

inic SE63 45 . DEFW FUT _WORD+3H 
IDIE 4443 46 ’ LE FW PUT _WORD+9H ; a oe a acer 
1020 48463 47 DEFW PUT_WORD+ODH : : eh, ee et 
1Dz2 4E63 42 DEFW PUT _WORD+ 13H may 5 
1n24 3763 49 DEFW PUT _WORU+ 10H 
: , a0 
1D24 1764 a1 DEFW GET_STATUS+12H 
1028. 1E64—- ' S2 DEFW GET_STATLUS+19H 


1LZA 2564 a3 : DEFW GETSTATUS+23H 


FIXTBL , PAGE 2 oe 
LuC OBJ CODE M STMT SQURCE STATEMENT ASM 5.9 
in2o 6164 55 _ DEFW GET_NUMBER+3H Py ie Rage) gitar oe ge wth aphids Pend wad 
1DZE ©4544 5S LIEFW GET_NUMBER+/H - a : ARE 9 
1D30 = 664 57 DEFW GET_NUMBER+OFH ee 
8 : : 
1D32 PF64 ag . DEFW BANK ENABLE+46H 
1034 ACS4 60 DEFW BANK _ENABLE+13H 
1036 B364 . . 41 LEEW BANK_ENABLE+14H 
10:33 OE4S 62 ‘ DEFW BANK ENABLE+75H 
103A 1445 63 ; ' DEFW BANK ENABLE+71.1H 
&4 j 7 ; ‘ 
IDSC 32465 65 DEFW SAVE_STATUS+14H 
1D3E BAGS * 6% DEFW SAVE_STATUS+1CH 
‘ 67 . 
1D40 0) S465 68 DEFW RES) ORE_STATUS+12H 
1142 64465 69 -DEFW RESTORE_STAfUS+1CH : 
70 ; : : ; 
1044 CE4S 71 DEFW BS_SP 
72 : 
1144 8545 73 DEFW GOTO_BANK+13H 
74 . 
1043. DBAs 73 ‘ DEFW CALL_BANE+3H . : ; : 
104A EDS - 74 EFW CALL BANK +101H ‘ 
1p4ac F245 77 ; DEFW CALL BANK +27H 
1D4E 1E46 © 73 DEFW CALL BANK+4EH : ‘ : ne ; wee 
150 2046 7? DERW CALL _BANE+5DH . ‘ 3 nose gels 
1mS2 TAGES eo DEFW CALL BANK +44H " Gants ae 
“41054 4266 , e1 DEFW CALL_BANK+7 2H 
1054 SO446 e2 DEKW CALL_RBANK+S0H 
1D53 6446 83 DEFW CALL_BANK+96H 
105A 7264 $4 LEFW CALL. BANK +0A2H 
1035¢ B066 65 ; DEFW CALL BANK +0OBOH 
1DSE 9464 87 DEFW MOVE_BYTES+8H : ar nas chee Ey Ohdbag Neg” Naa 
1060 COS 2a LEEW MOVE_BYTES+34H ie ca fe Var ay 
a9 
1042° FD46 $0 DEEW CREATE_BITMAP+15H 
10464 0367 91 DEFW CREATE_81TMAP+1BH 
92 
1146 3047 93 DEFW XFER_BYTES+0EH ; 
1Dés 4F4&7 94 DEFW XFER_BYTES+20H . . 7 : ‘ eo 
1D4A SOG7, 9S DEFW XFER_BYTES+2EH ane ae oa har 
104¢ SAG7 ; 96 DEFW XFERLBYTES+33H j : : : aoe 
1U46E TOL? . 97 “ TEFW XFER_BYTES+54H j 
1070 7047 PS ® DerwW - XFER_BY SES+58H 
1072 A767 - o9 , DIEFW XFER_BYTES+85H 
1074 = LIC&7 100 DEFW XFER_BYTES+0BAH | . Mee Esa 
1076 E367 101 DEFW XFER_BYTES+0C1H ‘ 
1D78 F6&7 102 DEFW XFER_BYTES+0D4H ae: 
103 : 


1D7A 0000 _ 104, DEFW ce) sTHIS IS THE TABLE TERMINATOR 


LOC 


JMPTBL 


OBJ CODE M STMT SOURCE STATEMENT 


OONCU PON 


10 


§ FUNCTION LISPATCHER JUMP TABLE 


3 ROUTINES IN T 


W.TAPE 
R_TAFE 
RD_WIT 
R_EDIGE 
SLVM 

LOAD 

MERGE 

SAVE 
CHNG_VID * 
W-BORD 


5 ROUTINES IN R 


GET_STATUS 
Ge T_NUMBER 
BANK_ENABLE 
GOrG_BANK 
CALL BANE 
XFER_BYTES 


$ ROUTINES IN T 


EXTERNAL 
EX TERNAL 
EXTERNAL. 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EX TERNAL 
EXTERNAL 
EX TERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL: 
EXTERNAL 
EXTERNAL 


HE EXT. 


Eau 
Eu 
EQu 
EGU 


- EGU 


Eat 
Eau 
Eau 
Eau 
Ewu 


AM 


Eau 
Enu 
Eau 
Eu 
Eau 
Eu 


HE HOME 


UPDLK 
FAKP 
BEEP 
kK WIUMP 


SENDTV- 


SET_AT 
ATTBRYT 
RATTS 
CLLHS 
CLS 
DUMFPR 


EXTERNAL INCH 


EXTERNAL 3 


EXTERNAL 
EXTERNAL 
EX fERNAL 


EXTERNAL 


EXTERNAL 
EXTERNAL 
EX TERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EX rERNAL 
EXTERNAL 
EX 1 ERNAL 
EXTERNAL 
FY TERNAL. 


ROM 


&3H 
OFCH 
13?H 
1SDH 
1ABH 
SccH 
6ESH 
S31H 
QEA3H 
OESH 


6405H 


' 643EH 


6493H 
$571H 
65CFH 
6721H 


ROM 


OPCHAN | 


CAT 
ERASE 
FURMAT 
MOVE 
FLASHA 
FINDLL 
SUEL IN 
RECLEN 
TEL Rem 


0 we ve we we we we we wr we 
VOnNCUSWNeK OS 


$27 


PAGE 1 
ASM 3.9 


‘fi 
[o] 


ACO On on 
POF Bw he 


Lac 


JMPTBL 


OBJ CODE M STMT SOURCE STATEMENT - 


a? 
60 
41 


EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EX TERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EX fERNAL 
EXTERNAL 
EXTERNAL, 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EX VERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EX I ERNAL 
EXTERNAL 
EXTERNAL - 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EX fERWAL 
EXTERNAL 
EX FERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EX TERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EX) ERNAL 


PUT UBC 
SYNTAX 
EXCUTE 
FOR 
STOP 
NEXT 
REAL 
DATA 
RESTBC 
RAND 
CONT 
JUMP 
FIX_u1 
FIX_uU 
CLEAR 
CLR_BC 
GO_SUB 
CHE_SZ 
RETURN 
PAUSE 
BREAK? 
DEF 
K_LPR 
K_FRIN 
P_USEQ 
INPUT 
SEQ 
NOTE B? 
COLOUR 
HIFLSH 
SCRMBL 
PLOT 
FLOTRC 
GET_XY 
CIRCLE 
DRAW 
DRAW_L 
EXFPRN 
F_SCRN 
F_ATTR 
RRND 
F_PI 
F_LINKY 
FINDO_N 
PSHSTR 
FAEDCB 
LET 
FPOPSTR 
DIM 
STEUSN 
STK_A 
STKBC 
ININT 
FRP2EC 
FF2A 
OUTPUT 
Sub 
Ann 


383 


394 


PAGE 2 
ASM 5.9 


557 


553 
359 


$112 


Loc: 


4000 


4000 
4Q02 
4004 
4006 
4003 
4008 
400c 
400E 
4010 
4012 
4014 
4Old 
4013 
401A 
4010 
401E 


4020 . 


4022 
4024 
AOZE 


Pate 


Q000 
lelerela) 
0000 
cererers) 
0000 


_ 0000 


0000 
0000 
oQ000 
aaa 
0000 
QO00 
0000 
ag00 
a000 
Q000 
aooo 
0000 
0000 
o000 


Purr fare 


CK OK OK KE OE KOKO KOK EK OK OK OK 


117 
119 
119 
120 
1214 

22 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
144 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
153 
159 
160 
1461 
162 
143 


144. 


145 
166 
147 
143 
149 
170 
171 
172 
173 


P tee a, Fe 


JMPTBL 
OBJ COLE M STMT SGURCE STATEMENT 


EXTERNAL 


~ EXTERNAL 


HERE. 


EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EX rERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EX tERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EX fERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 
EXTERNAL 


IS THE T 
ORG 


DEFW 
DEFW 
DEFW 
DErwW 
DEFW 
DEFW 
DEFW ° 
DEFW 
DEFW 
DEF W 
LIEFW 
DEF W 
DEFW 


. Derw 


LIEFW 
DerwW 
DEFW 
DEFW 
DEFW 
DEFW 


rarer oni 


MULT 
TIMES 
DIVIDE 
TRUNG 
FLOAT 
INTDIV 
INT 
EXP 

LN 
ANGLE 
Gos 
SIN 
TAN 
ATN 
ASN 
acs 
ROOT 
TO_THE 
RUCH 
SENDCH 
WRCH 
K_SCAN 
PLLFT 
P_RT 
PLNL 
PUTMES 
KLCLS 
SCRL 
FLPNT 
DRAWLN 


PUTOLN - 


ABLE 
4000H 


PUT LN 
DIRAWLN 
F_PNT 
SCRL 
K_CLS 
PUTMES 
P_NL 
P_RT 
F-_LLFT 
K_SCAN 
WROH 
SENDICH 
ROCH 
TO_THE 
ROOT 
ACS 
ASN 
AIN 
TAN 
SIN 


ge ae 


we we 
— 
Ceied 
o> i 


«eos 
i 
—_ 
oo 


Ne 
Wis hoo hho kh hbo toh 
RBPOUVON GU SNe 


we we we ws we ve ve we ue ve ve 


2 
~ 
G3 
W 


3135 


3137 
$123 
313° 


3141 
$142 
3143 


PAGE 
ASM 


$140 


wa 


lane ' IMP TEL FAGE 4 
Loc OBJ CODE M STMT SCURCE STATEMENT. SM 5.9 
402A  andd X 175 LEFW ANGLE 
4020 aove X 176 DEFW LN 
402E aood X 177 DEFW EXP 
4030- o000 X 178 DEFW INT 
4022 o000 X 179 DEFW INTLIV 
4034 od00 xX 180 neEFW FLOAT om 7 Smet eee 
4036 0000 X 181 DEFW TRUNC en : 3 SR Oe cM Bere eg 
4038  o0d0 X 182 DEFW DIVIDE 3 : 
403A  o000 X 183 DEFW TIMES 
4020 o0ad0 X 184 | LIEFW MULT 
403E . aood X 185 | DEFW AnL 
4040 = Q000 X 186 DEFEW Sup : o Ssse ge yah So gE eats cae Rade oh ag 
4042 000 X 187 DEFW OUTPUT o fa . 2% Z eae Cone th 
4044 aoaa xX 189 DEFW FP2A : 
4046  Q000 X 199 DEFW FP2BC ; i te 
4048 o000' X 190 DEFW © LNINT : 
404A = ga00 X 191 DEFW STK_BC Los ‘ 
4040 0000 X 192 DEFW . STK_A 
404E 00d X “193 DEFW STKLUSN 
4050 dood X 194 * CEFW DIM, 
4062 000 X 195 DEFW POPSTR ’ 4 
4054 -o000 X 194 DEFW LET ; 
4056 avad X 197 DEFW PAEDCB 
4058 aoao X 198 DEFW PSHSITR 
405A  od00 X 199 DEFW FINDLN 
4050 Goad X 200 ; DEFW: F_LINKY 
405E 0000 X 201 LEFW F_PI 
4060 OOOO , xX Zaz ‘DEFW RNOD : 
4062 0000 X 203 DEFW F_ATTR. 
4064 = 9000 X 204 DEFW ° F_LSCRN ; : 
4966 0000 X 205 DEFW EXPRN : 
4068 = g000 X 206 DEFW DRAW_L ae 
404A = Q000 X 207 DEFW DRAW 
4060 = Q000 X 208 LIEFW CIRCLE 
4046E 0000 X 209 DEFW GET_XY 
4070 aa00 X 210 DEFW PLOTEC 
4072 o000 X #11 DEEW FLOT 
4074  a000 X 212 DEFW SCRMBL 
4076  o000 X 2123 DEFW HIFLSH 
4078  aadd X 214 thEFEW COLCUR 
407A  o000 X 215 DEW NOTEB? 
407C = a000 X 214 DEFW I-SEQ 
407E 0000 X 217 DEFW INFUT 
4080 = ga00 X 218 LEFW P_LSEQ 
4082 0000 X 219 LEFW ® K_PRIN 
4054 0000 X 220 DEFW LPR 
4086 0000 X 221 LEFW DEF 
4088 good X 222 | DeEFEW HREAK? ; 
408A —a000 X 223 LEFW PAUSE 
408C ao0d X 224 DEFW RETURM 
408E  o000 X 225 LEFW CHE_SZ 
4070 = aoGa X 224 DEFW GO_SUB 
0000 X 227 LEFW CLR_BC 
C000 X 228 OEFW' CLEAR 
0000 X 229 DEFW FIX_U 
e000 X 230 DEFW FIX_U1 ; 
0000 X 231 DEFW JUMP ( 
OOOO X 


222 DEFW 


Luc 


409E 
40A0 
40A2 
40a4 
40A6 
4008 
40AA 
4OAC 
40AE 
40B0 
40B2 
40R4 
40KS 
40B8 
40BA 
40BC 
40BE 
40ca- 


40C2 - 


40C4 
40ce 
40ce 
40CAa 
40cc 
40ceE 
40n0 
4002 
4004 
4006 
4002 
400A 
400c 
- 40DE 
AOEO 
40E2 
4084 
4NES 
40ES 
40EA 
4oEc 
40kk 
40FO 
40F2 


40F4 ° 


40F4& 
40rS 
40FA 
40rc 
40FE 
4100 
4102 
4104 
4104 


4108 | 


410A 
410C 
410E 
Ailing 


ORI CODE M STMT SOURCE STATEMENT 


0000 
On0d 
relate ra) 
ao000 
0000 
o000 
0000 
a000 
e000 
ao00g 
0000 
o000 
0000 
o000 
fulelere) 
000 
0000 
ao0g 
0000 
qo00 
0000 
ao0g 
Qa000 
0000 
a000 
pererere) 
a000 
a000 
0000 
alelale) 
0000 
aoa0 
0000 
aoagd 


“0000 


OQ 
0O00 
falerere) 
0000 
000 
(alerare) 
a000 
FFFF 
FFFF 
FFFF 
FEFF 
FFFF 

2147 
CF45 
7165 
SIbG 
SES4 
0564 
FFFF 
FFEF 
EFF 
FFEF 
Cece, 


% 


OS HK OK DK OK KE OK OK KE OK OK OE OK OK OE OK KKK KOK KOK OK OK KE OK OK OOK OOK OK OK OOK KOK OK OK OKO OOK OK OOK 


233 
234 
235 
236 
237 
233 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
24° 
250 
251 
252 
253 
254 
235 
254 
257 
253 
259 
260 
261 
262 


263 


264 
265 
264 
267 
243 


JMPTBL 


DEFW 
vEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DET W 
DEFW 
DEFW 
DEFW 
DEFW 
DERW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
“DEFW 
DEFW 
DEFW 
DErW 
Dew 
DEFW 
DEFW 
DLFW 
DEFW 
DEFW 
DEFW 
DEFW 
DeEFW 
DEFW 
DEW 
DNEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DErW 
DEFW 
DEFW 
DEFW 
DEW 
DEFW 
nEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
LIEFW 


TUueK’LI 


es 


RANU 
RESTBC 
DATA 
READ 
NEXT | 
STOP 
FOR 
EXCUTE 
SYNTAX 
FPUT_BC 
VELREC 
RECLEN 
SUBLIN 
FIND. 
FLASHA 
MOVE 
FORMAT 
ERASE 
CAT 
OFCHAN 
OFEN 
CLCHAN 
CLOSE 
RESET 
INSERT 
SELECT 
INCH 
INIT 
K_NEW 


“ DESLUG 


FRSCAN - 
DUMPFR 
cLs 

CLLHS 
R_ATTS 
ATTEYT 
SET_AT 
SENDTV + 


- OFFFFH 


OF FFFH 
OFFFFH 
XFER_SYTES 
CALL_BANK 
GO rO_ BANK 
BANK_ENABLE 
GET_NUMBER 
GET_STATUS 
OFFFFH 
OFFLFH 
OFFFFH 
OFFFFH 


Li woonm 


PAGE 5 
ASM 5.9 


i) 


am one JMFTBL PAGE 4 : ; |. i. ’ 


Loc OBJ CODE M STMT SQURCE STATEMENT : ASM’ 3.2? 
4112 AZO0E 271 DEFW CHNG_VID 2 a ae # ; 4 : ie ae : ‘ 
4114 S108 292 DEFW SAVE a y 
411d E06 273 DEFW MERGE ; r 
4118 clas 294 DEFW LOAL ' 
411A ABO 295 i LIEFW SLVM ; aan Se tes yy 
411C Snot ; 296 DEFW R_EDGE : ; Be : : ( 
411E Soi 297 DEFW ROBIT “4 , ae Ss 
4120  FCOA0 278 DEFW RTAPE ; ef te : ae a 
4122 .6800 299 DEFW W_TAPE : < 2 ae ke : mp ee SS ( 
( 
( 
i ( 
4 ¢ 
é 
t 
' ( 
( 
« 
( 
f 
( 
oe” 
8 ‘ ( 
( 
( 


KINK 1.7 Extension KOM 
Loan MAP 

MORULE ORIGIN LENGTH 
XBASIC 0000 ages 
TAPE 0063 OS7F 
INIT OSE7 o4c9 
CHNG_VID OBO O0193 
FASSING OF 43 QO047 

BS OFSA OLE 
GLOBAL ADDRESS MODULE 
AKEY  . OSAA TAFE 
BLOSCT CIF 4 INIT 
CALL_B OF’? RS 
CHMG_YV OESE CHNGUVID 
CLUFIL O£27  CHNG_VID 
“EXINIT OGE7 INIT 
GooIioLB OF SA BS 

Loan osce TAPE 
MERGE ; O4ES TAPE 
OPDOF IL ODEO CHNG_ VID 
PASSIN OF42 PASSING 
ROULBIT.. O18? TAFE 
RESSCT ocac INIT 
R_EDIGE O18D TAPE 
R_TAPE OOF: TAPE 
SAVE oss TAFE 
SLVM QO1AB TAFE 
W_BORD QOES TAFE 
W_TAPE 0068 = TAPE 


PROGRAM XBASIC -- 1000 BYTES 
ENTRY® 0000 


owt 


MINK 1.7 Extension ROM 


Lean MAP 
MODIILE 


DISPATCH . 
GLOBAL 


BANK_E 
HS_MAX 
SSP 
CALL_B 
CREATE 
DISKAT 
GET_CH 
GET NU 
GET_ST 
GET_WG 
GOTO_B 
GOTOLE 

INT 
MOVE_B 
NMI 

PUT WO 
READ_B 
WRITE. ° 
XFER_B 


ORIGIN LENGTH Located 


oad 
ADURESS 
64d? 


6315 
63CE 


4500— 


&4E8 
4200 
6440) 
645E 
6405 
6314 
6372 
6815 
G2AE 
66815 
6307 
633B 
é2AD 
635 
6722 


48Z4 
MODULE 


DISFATCH 
DISFATCH 
DISPATCH 
DISPATCH 
DISPATCH 
DLSFATCH 
DISPATCH 
DISPATCH 
DISPATCH ‘ 
DISPAICH 
DISPATCH 
DISPATCH 
DISPATCH 
DISPATCH 
OISFATCH 
DISPATCH 
DISPATCH 
DISPATCH 
DISPATCH 


FROGRAM DISPATCH -- 6880 BYTES 


\o¢geu 
Jump -Talle 1eEDc Hu 


ENTRY: 0000 


Fix tb\ 


ok 


}O00Nn 


